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PREFACE 


The general objective of this book is to teach 
students to compose original programs in System/360 
COBOL. The major topics discussed are: the COBOL 
program sheet -- its format and the rules for 

using it; the notation system used to describe 
entry formats; the formats of the four divisions; 
file descriptions, record descriptions, and item 
descriptions; ways of naming data items; and the 
formats of the most commonly used procedural 

words. 


The student gets practice in recognizing correctly 
written entries, recognizing faulty entries and | 
correcting them, and writing original entries. 

He uses the entries in complete programs. 


Not all possible entry formats are discussed; 
rather, a selection of important entries is pre- 
sented. Also, many of the formats have been 
simplified or abbreviated to make them easy to 
learn, and to spare the student from being buried 
in a heap of details. For example, when arithmetic 
verbs are discussed, considerations such as 
truncation, rounding, size errors, etc. are not 
mentioned; these topics are taken up in the next 
course in this series. 


Omitted, too, is a discussion of the entries that 
are used for processing non-sequential (random) 
files. This book concentrates on presenting a 
subset of System/360 COBOL which is adequate for 
processing sequential files. 


This textbook is designed to be studied in 
conjunction with the Writing Programs in COBOL 
reference handbook (Form R29-0211). This book 
serves as a study guide, and is meant to be re- 
used. All technical information is contained in 
the reference handbook, which is kept by the 
student when he completes the course. 


The student is expected to have completed the 
previous course in this series, COBOL Program 
Fundamentals. The publications for that course 

are a programmed instruction textbook (Form R29-0205) 
and a reference handbook (Form R29-0206). The 
student should have the reference handbook from 

the previous course, and he must also be provided 
with a pad of COBOL program sheets (Form X28-1464). 
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It is reasonable to assume that a 
number of improvements and addi- 
tions will be made to COBOL. Every 
effort will be made to insure that 
the improvements and corrections 
will be made in an orderly fashion, 
with due recognition of existing 
users' investments in programming. 
However, this protection can be 
positively assured only by individ- 
ual implementors. 


Procedures have been established 
for the maintenance of COBOL. 
Inquiries concerning procedures 

and methods for proposing changes 
should be directed to the Executive 
Committee of the Conference on 
Data Systems Languages. 


The authors and copyright holders 
of the copyrighted material used 
herein: FLOW-MATIC (Trade-mark of 
the Sperry-Rand Corporation) , 
Programming for the UNIVAC QI and 


II, Data Automation Systems © 1958, 


1959, Sperry-Rand Corporation; 

IBM Commercial Translator, Form No. 
F28~8013, copyrighted 1959 by IBM; 
FACT, DSO 27A5260-2760, copyrighted 
1960 by Minneapolis-Honeywell; have 
specifically authorized the use of 
this material, in whole or in part, 
in the COBOL specifications. Such 
authorization extends to the repro- 
duction and use of COBOL specifi- 
cations in programming manuals or 
similar publications. 


Any organization interested in 
reproducing the COBOL report and 
initial specifications in whole or 
in part, using ideas taken from 
this report or utilizing this 
report as the basis for an instruc- 
tion manual or any other purpose 
is free to do so. However, all 
such organizations are requested 
to reproduce this section as part 
of the introduction to the 
document. Those using a short 
passage, as in a book review, are 
requested to mention "COBOL" in 
acknowledgement of the source, but 
need not quote this entire section. 
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STUDENT INSTRUCTIONS 


This is the second in a series of programmed instruction courses 
on System/360 COBOL. The previous course, entitled COBOL Program 
Fundamentals, is a prerequisite to this course. 


Be sure to read the Preface of this book, which explains the 
overall goal of this course. 


Besides this book, you must have: 


@ the reference handbook (Form R29=-0211) for this course. 

e the reference handbook (Form R29-0206) from the previous 
course in this series. 

® a pad of COBOL program sheets (Form X28-1464). 


All reading assignments given in this textbook are in reference 
handbook R29-0211. However, you are expected to take the 
initiative in reading reference handbook R29-0206 whenever you 
need to review background information. 


The reference handbook is yours to keep, and you can write notes 
in it if you wish. The textbook, on the other hand, will be used 
by other students, so you are not to fill in any of the blanks or 
make any notes in this book. 


The format of this book is exactly the same as that used in the 
previous programmed textbook in this series. As before, topics 
of study are presented ina series of frames, with most frames 
requiring you to choose an answer or to formulate an answer 
mentally. The correct answers are given right after each 
question, and you should use a card or a sheet of paper to cover 
up the correct answer until you have had a chance to formulate 
your own response to the question. 


If the meanings of symbols like bracket and braces (as they are 


used in frames) are fresh in your mind, you may begin Lesson 1; 
otherwise, read the information on the next page. 


vil 


System/360 COBOL Writing Programs in COBOL 


HOW TO STUDY THIS BOOK 


Le Each lesson is broken up into a number of frames, which are 
Simply convenient instructional steps that are to be studied in 
sequence. Most frames have two parts: the first part usually 
asks a question or requires you to take some action; the second 
part gives the correct answer to the question. The end of the 
first part is marked by a group of three dots printed in the 
center of the page. If the frame asks a question, the correct 
answer is printed on the same page, below the three dots. 


23 As you study each frame, you must use an ordinary sheet of paper 
or a card to hide the correct answer from yourself. You will 
learn the subject best by working out the answers, not by just 
reading words. 


3. Start each page by putting your “hider" sheet or card at the top. 
Then slide your sheet down until you just uncover a group of 
three dots. This will allow you to read the first part of a | 
frame, and to formulate your answer to the question or problem it 
poses. When you have your answer clearly in mind, slide the 
"hider" sheet down to the next group of three dots. This will 
| not only reveal the correct answer, but also uncover the first 
| part of the next frame. 


4. Most frames require you to formulate an answer mentally. Your 
answer may sometimes be different from the printed answer, but it 
should mean the same. If your answer is wrong, study the question 
again with the correct answer in mind. 


5. On the whole, the course is composed of reading assignments and 
questions. When a frame gives you a reading assignment, be sure 
to complete the assignment before going on to the next frame. 

The frames that follow a reading assignment may ask questions 
about what you have read, or ask you to apply what you have read; 
they may also provide additional information about the topic. 

You will find instructions, remarks, and the author's opinions 
printed in italics in a few frames. 


6. Whenever a frame asks a question based on information in the 
reference handbook, and you cannot remember the information, you 
should reread that topic in the reference handbook. 


one or more words that complete the sentence. The length of the 
blank space is always the same, so it is not a clue to the aeutaail 


| 
ie When you come to a blank in a frame, you are to think of 
of the answer. Do not write your answer in the book. 
| 
| 
| 
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8. Some frames present a choice of answers, from which you are to 
select the one best answer. The choices are stacked in @ 


: braces. 


9. Other frames present a choice of answers, from which you are to 
select all correct answers. All of the choices may be correct; 
more than one, or just one may be correct; or none may be correct. 
It is therefore necessary for you to examine every choice. Each 


choice of this kind is enclosed in brackets []. 
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LESSON 1 


MM in the previous course (COBOL Program Fundamentals), you studted 
many sample COBOL entrtes and programs, all of whtech were written 
on program sheets. COBOL programs are normally written on such 
sheets, whitch are sometimes called "coding sheets"; however, thts 
ts not absolutely necessary, since programs might be written on 
gust about anything -- even seratch paper. (Some companies that 
use COBOL have printed thetr own special coding forms, anda few 
compantes have done away with coding forms altogether by punching 
COBOL cards dtrectly from flowcharts, dectston tables, and record 
layouts!) Most COBOL users write on the standard type of program 
sheet, though, and you wtll be using the standard sheet through- 
out thts course. 


It wtll be worth your whtle to remember which columns of the 
program sheet are used for program entries, and which columns are 
used for other purposes. Make sure that you learn what "margin A" 
and "margin B" are. 


Reading assignment: PROGRAM SHEET FORMAT 


| 2 | The program sheet has space for columns of information. 


80 


FEM The program sheet has 80 columns because , 


it serves as an input document to a card punching operation 
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WH this is what the COBOL card looks like. 


COBOL STATEMENT 


COBOL STATEMENT 


00:010000000000000000000000000000000000000000000000000000000000000)00000000 


0 
8 
1 


UTR REESE RRR ERROR OROR ERROR ORE ERED OEOEOCEEEEOEOROREROREREEREROEE GEREEED 
22 2}222/2]2222!222222222222222222222222222222222222222222222222222222222222212 2222222 
333/33313/3 93.91333333333333333339333333333333333%33333333333333333333333333313 3333333 
sadeaalileacaeaaaaagas COBOL SOURCE PROGRAM CARD asssneesanaanesens Z| 
5 55S SSIS SSS SSSSSSSSHSSSS SSS SSS SSO SHS SS SS SSS SSS SSSSSHSSSSSSSSSSSSSSSSS 55555555555 
6.66166 6|5|6 66615 6556666555555 55EEESSSS SSS SSS SSS ERS SSEGEESSS 55555555 555566565 05665666 
DT HT TANT TTT TTT TTT TTT TTA TTT ATID TTT TIT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 


1BM C61697 


88888 8/SB8SBBSSBESESBSSHSHRBHSESBHSHSBGSESSSLRBSSSHSGSBGBSSGRSGBGBG8888 888888888 


Although columns 8-72 have no title on the program sheet, the 
corresponding field in the card is named ‘ 


COBOL STATEMENT 


MEM A separate card is punched for 
each separate program sheet 


each column on the program sheet ‘ 
each line on the program sheet 


each line on the program sheet 


WH Information entered at the of the sheet is not punched into 
cards. | 


top 
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| Examine the illustration below, which sums up the information 
@ that you read in the reference manual. 


OPTIONAL NOT PUNCHED INTO CARDS OPTIONAL | 


CONTINUATION 


Form No. X28-1464-] 
Printed in U.S.A. 


COBOL PROGRAM SHEET 


Identification 


SEQUENCE Zl q 


Pace) [senate 
314 61718 


oid i 
i 

L 
il 
j 

i 

si 


B MARGIN 


"A standard card om IBM electro C61897, is available for punching source statements from this form. 


et 
“ap 
a, 
, 


< 


Columns 1-6 and 73-80 are marked "optional", which means that 


those columns are not printed on some program sheet forms 
something must be written in one field or the other, but 


not both | 
neither the identification nor the sequence number is 
mandatory 
the programmer can disregard his boss's orders to fill 
them in | | 


e050 
neither the identification nor the sequence number is mandatory 


However, both of these ftelds are generally filled in, wtth each 
computer installation setting its own standards for identificatton 
codes and sequence numbers -- which means that the programmer 
fills in those fields the way his boss wants it done -- regardless 
of the faet that the compiler technteally doesn't requtre anything 
: in them. In this book, we will leave the opttonal columns blank, 
ws itn order to concentrate on program entrtes. 7 
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oA hyphen is written in column 7 to signify the continuation 
of ° © 


non-numeric literals 


Complete rules for conttnuing non-numeric literals wtll be 
dtscuseed a little later in this lesson. 


COBOL entries are written in columns through ‘ 
ee0e 


8, 72 


10° The program entry columns of the program sheet are divided into 
two "margins". Notice that a "margin" in this case is an area 
that you are supposed to write in; a rather different use of the 
word from the usual notion of a margin as a narrow border around 
the edges of the paper -- a space that you are not supposed to | 
write in. | 


The names of the margins are certainly simple and easy to 
remember -- they are margin and margin ; 


A, B, 


TT A broken line has been printed between columns 11 and 12 to mark 
the boundary between margin A and margin B, and little letters A 
and B have been printed above columns 8 and 12 to identify the 
margins. 


Don't let those little letters mislead you. They are there to 

remind you where each margin begins, and they do not mean that 

each margin is just one column. Actually, margin A comprises 

columns through , while margin B comprises columns 
through - 


eee 
8, Ll; 12, 72 
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Suppose a rule states that a certain entry must "begin in the 
B-margin". Following the rule, that entry 


might be started in column 16 


must be started in column 12 
can be started in column 8, 9, 10, 1l, or 12. 


eee 
might be started in column 16 


We wtll see that the most likely starting potnt for such entrtes 
ts column 12 -- but that this ts not a "must". 


Suppose that the rule for another kind of entry states that the 
entry must “begin in the A-margin". One such entry is the 
paragraph header "REMARKS". If a programmer were to begin this 
entry in column 8, he could only write REMA in the A-margin. 

If he followed the rule, you would then expect him to 


“write RKS. in columns 12-15 of the B-margin 

write RKS. in the A-margin of the next line 

abbreviate the entry to RMK. so it would fit in the A-margin 
omit the remainder of the entry 


eee 
write RKS. in columns 12-15 of the B-margin 


The rule specifies a beginning place, but does not require the 
entry to be completely contatned within the A-margin. 


There really are rules like those referred to above, and we will 
turn our attention to them now. First, we will look at the rules 
for wrtting elements tn entrtes. From the prevtous course, you 
will reeall that an "element" is the baste unit of the COBOL 
Language; reserved words, programmer-supplted names, symbols, 
literals, level numbers, and ptctures are the six "elements". 

You wtll find that there are just two major rules for writing 
elements tn entrtes, but that each rule has an exceptton. You 
will want to study the exception carefully, of course, but make 
sure you understand the general rule first. 


Reading assignment: HOW ELEMENTS ARE WRITTEN IN ENTRIES 
Elements written on program sheets 
Spacing between elements 
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The first rule that you have just read states that, except for 


non-numeric literals, no fentries | may be split or divided © 
entries 
between lines. 


eee 
elements 


You wtll dtscover shortly that entrtes can be continued on more 
than one ltne. The dtstinctton between an element and an entry 
should be elear tn your mind. Remember that an "entry" consists 
of two or more elements, the last of whtch ts a pertod. 


ERR coBol systems for some other computers do permtt elements such as 
names to be dtvided; however, expertence has shown that this 
makes a program harder to read, and makes errors more likely. 

So the rule for System/360 COBOL ts that no elements except non- 
numerte ltterals can be dtvtded. 


Which is the correct way to write the name ACCOUNTS-RECEIVABLE 
on a program sheet, if there are not enough spaces left on a line 
to write out the whole name: 


[The name may be broken at a syllable boundary, so ACCOUNTS-RECEIV 
might be written on one line, and ABLE on the next line.] 

(The name can be broken at the hyphen, so ACCOUNTS- would he ©@ 
written on one line, and RECEIVABLE on the next line.] 


NEITHER of these ways is correct. 


The characters form one name (one element) and so they must not 
be broken at any point. If there ts not enough room left ona 

line to wrtte the enttre name, then tt must be written entirely 
on the next ltne. 


BRA There is a good reason for permitting non-numeric literals to be 
divided. No matter how small you print, there are still only 61 
spaces in the B-margin, and a non-numeric literal can be up to 

characters long. 


If you don't remember, look thts informatton up in the COBOL 
Program Fundamentals reference handbook (Form R29-0206). 


120 
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18 | Doesn't this same reasoning apply to numeric literals? Shouldn't 
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it be permissible to divide a numeric literal that is, say, 80 
digits long? 


Numeric literals are limited to 18 digits, so they need not 
(and must not) be divided. 


Which of the examples below is a correct way to divide the literal 
LISTING OF DATA RECORDS IN FILE NUMBERS between two lines? 


t _ol7/8  jl2 #16 20 24 28 


TT TTT TrID 
| 0 Titel! leliicitiulriel lalsiel valviuie! | iciistrilniel lolel [plaitial Irleiclolripis} (iin) | * 
See tee Wel WoeeR LETC 


PU a | 


CTT ole irre efictrulalel lal isiely [7 walcivlel [lisiriinlel tole! [olalrial Irlelclolriols| [iini | 
COs ec Wulelee | TTT 


TTT lel Tir irife! | Tefiictriulrle! lalc'sieb [7 Maliulel [iciistriiinlel loll [ovalrial Irlelclolrlo/s| [in| 
COTA cle nomiplele OTT 


CTT toe ititile’. ip ‘ofrulmie! Tal sie {.T value! [7 Liifsiririn{ol Tol{ plata! irlelclolrlols| {ini | 

PET etter TTT PTT 
ee0ea 

The third entry is the correct one. In it, the characters of the 


literal are written ali the way out to column 72, then an extra 
quotation mark is written in the B-margin of the next line, 
followed by the remaining characters of the literal. 


The first entry contains two non-numerte literals instead of one, 
which tn this case, ts an error; the mistake is the quotation 
mark at the end of the first line. In the second entry, the 
characters of the literal are not written to the end of the first 
line, nor do they follow right after the extra quotation mark in 
the second line; as a result, there would be four more spaces 
than were wanted in the literal, and the compiler would take it 
to be LISTING OF DATA RECORDS IN FILE NUMBER. In the fourth 
entry, the quotatton marks that must enclose the ltteral have 
been omitted. 


Even though the third entry te correct, tits awkward breaking of 
the word FILE makes it hard to read. Actually, tt would have 
been posstble to write this entry without dividing the literal at 
all, as shown below. The "common sense" rule ts: Don't divide 
non-numerte ltterals, tf you ean avotd tt. 


TTT Tole! Trlr Wel! flilectriuirle lisesi TTT TIT i TIT TT TTT 
PLE | Malle: [iufistriinie! Tole) plalria IRlecolr[o's’ lw lrilulel NumeelR | [TTT 


TT 
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You have also read that each element must be separated from the 
next element by at least one space. The exception in this rule 
applies to certain . 


symbols 


Speetfteally, the exception to the spacing rule appltes to 
parentheses, quotatton marks, commas, semtcotons, and pertods. 
This exception (whieh says that no spaces are to be left between 
those symbols and other elements in some cases) should not seem 
unreasonable to you; tn fact, each 'exceptton' ease can be found 
tn the punetuatton of the sentence that you are now reading. 


If the parallel between ordinary English punctuation and the 
exeepttons to the spacing rule did not oeeur to you before, tt 
would be wise for you to reread the rule and to look for this 
parallel. 


To be sure , a sentence ' punctuated ‘ ltke this one ( I hope you 
nottced that it ts different ) ts not particularly hard for you 
to read ; however , a program ' punctuated ' like this sentence 
would not be acceptable to the COBOL compiler . | 


Keep in mind that the spacing exception applies only to certain 
symbols. The remaining symbols follow the general rule -- that 
is, they must be separated from neighboring elements by at least 
one space. 


The entry below violates this rule several times. See if you 
can eliminate all the errors. Rewrite the entry on a COBOL 
program sheet. 


spaces are requtred here 


spaces are not allowed here 
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Now that you know the rules regarding the diviston and spacing of 
@ elements to make up entries, let's go one step further and look 
at the rules for writting entries on the program sheet. 


Reading assignment: RULES FOR PROGRAM ENTRIES 
Entries that begin in margin A 
Entries that begin in margin B 
New line required 
Spacing between entries 
Continuation of entries 


According to the rules for using the COBOL program sheet, it is 
all right for a line of the form to be [filled in completely] 
[left partly blank] [left entirely blank]. 


ALL of these possibilities are allowed. A line may be filled in 
completely OR left partly blank OR left entirely blank. 


Inetdentally, tf lines are given sequence numbers (columns 1-6), 
the blank lines are numbered too. There ts a distinetion, of 
course, between lines left entirely blank to tmprove the 
readability of the program listing, and unused lines on the 
program sheet. 


(oan entry may be continued on the next line or lines 


whether or not it could be written on one line 
only if it is too long to fit on one line : 


whether or not it could be written on one line 


Most entries are written entirely within margin : 
ee0 
B 
! 
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A few entries are required to begin in margin A. What this 
amounts to is that major headings are brought out to the left for 
emphasis. Although these entries may start in columns 8, 9, 10, 
or ll, it makes sense to make them stand out as far as allowed. 


Accordingly, these entries are usually started in column es ; 


A division header (such as IDENTIFICATION DIVISION.) must begin 
in the A-margin, and 


no part of it may be written in the B-margin 
most of it will be written in the B-margin ° 


most of it will be written in the B-margin 


Below is a sample file description entry. This entry serves to | 
illustrate that the continuation of an entry is written in 
margin , even when the entry begins in margin ; 


EG In the sample entry given in the previous frame, two spaces were 
left between FD and SALES-MASTER-FILE. Would it have been equally 
correct to leave just one space, as shown below? 


| 
| 
| 
| 


No, only the level indicator (FD) may appear in the A-margin; the 
rest of the entry must be written in the B-margin. 
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You know that the elements in an entry must, generally, be 
separated from each other by at least one space. A special case 
exists when an element ends in column 72, as shown below. 


a) CDK | < ( ) 44 48 a 
EET dui irh elev lalmioluintr] fol] Icl[i lelwir lelulricilalsiels! |ply|_ iriRlaplel-loli [siclojuinit], | Ie}! [vit Nic. 
Which of the lines below shows a correct way of completing this 
entry? 


= roe set H 
ERR SR SERA RARE REE RARE AAR EE ERR ER REESE 
HESS GERSRELEA 


tit TT imebluictrivoi | TET TTT TTT tT TTT 
LETT EL Tet | WReloler voi. TTT TTP 


ONLY the third line 


If an element ends in column 72, tt ts treated (by the compiler) 
as tf tt were followed by a space. Therefore, the continuation 
of such an entry may be written right at the beginning of the 
B-margin. 


The ftrst two choices show the continuation of the entry written 
tn the A-margin, which is illegal. And the first and fourth 
chotces have hyphens in column 7, also tllegal. The fourth 
choice ts correct, except for the hyphen in column 7. 


Here ts another appltcatton of the "eolumn 72" rule. On the 
ftrst line below, an entry goes all the way to the end of margin 
B; on the second line, the next entry starts right at the 
beginning of margin B. The requirement that the pertod ending 
an entry must be followed by a space is satisfied by the"assumed 
space" after column 72. 


|| ras nen 77 NOME can SEDL Te WERK aT? BERL UPDR aGCT SOLED. 
PlalyiRoue fri ulel.! IclHlelchk lei lel. TT TTT TT TTT TIT TTT TT 


LITT TT TT ichlojsie! 


1] 
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You can see that, in most cases, the "column 72" rule works to 
our advantage; in the case below, however, it does not. The 
entry below is wrong. See if you can figure out why it is wrong, 
and what can be done to correct it. 


4 6/7/68 _'6 20 24 28 32.386 CG 4g___52__ 6 64 sé _72 
CITT TTT irelaiol Isleielviriclel-lclaiut|;| lar! lello),! Icluiolsiel IsleRiviiiclel-lcaL srl ilel.| isitiole [RUN 
RAC RERERSAEAACE RSPR CREA RARER ERR E eRe ER SERRE RE RRR R eee a REA BERR 


The period used to end an entry must not be preceded by a space. 
Since the reserved word RUN ends in column 72, it is treated as 
if it were followed by a space -- and that space precedes the 
period written on the next line. The simplest correction is to ! 
write the word RUN on the second line instead of the first, and 
write the period directly after it. 


In some cases, programmers mistakenly assume that the "column 72" 
rule applies, when tt actually does not. The followtng ts such 
a ease. 


In this entry, the programmer thought he was writing this literal: 

ORDER NUMBER IS NOT VALID. The word NUMBER ended in column | 
72, so he assumed that the compiler would insert a space after 
it. However, when the program was compiled, the result was: 
ORDER NUMBERIS NOT VALID. 


3/4 617j8 ji2 16 20 24 28 32 


r 40 44 49 $2 


TIC Fl Nek) eM [isl vol] Jeoual| mol Previous| +l] SiroPl] ORDER NUMBER 
PLETED Ty ‘tus! Inioit] fvlaietfoL ET TT TT 


What was the fallacy in this programmer's thinking? How can his 
error be corrected? 


eee | 


The "column 72" rule applies only when an element ends in column 
72. In this case, the word NUMBER is not an element; it is part 
of an element -- part of a non-numeric literal. Correction is 
easy; insert the desired space between the extra quotation mark 
on the second line and the word IS, or preferably, write the 
entire STOP statement on the second line, thereby avoiding the 
problem of continuing the non-numeric literal. 


| 
| 
| 


Throughout the remainder of this book, you will be called upon 
to apply the rules that you read in this lesson. Whenever you 
are asked to write an entry, and there ts any question tin your 
mind about how to enter tt on the program sheet, be sure to 
refer to the rules in your reference handbook. 
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LESSON 2 


Now that you know the rules for making entries, the next step ts 


(3/66) 


to learn the formats of the entrtes. But there are scores of 
posstble entries -- too many to commit to memory; so, you will 
have to restgn yourself to making liberal use of reference 
matertals for a while, at least until writing some of the more 
common entries becomes second nature to you. 


In COBOL, there ts a standard system of notatton that is used to 
desertbe entry formats in reference materials. The system ts 
used in the reference handbook for thts course, and tt ts also 
used tn reference manuals and other books about COBOL, so it ts 
tmportant that you become familiar with it. We will now devote 
a little time to the notatton system, before continuing to study 
the actual entry formats for the Identtfication division. 


Reading assignment: SYSTEM OF NOTATION USED TO DESCRIBE 
ENTRY FORMATS 
Sample entry format 


One of the main distinctions that is made in this system of 
format notation is between words printed in capital letters and 
words printed in small letters. What is the difference between 
them? 


Words printed in capital letters are reserved words; words 
printed in small letters represent information to be supplied 
by the programmer. | 
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This distinction deserves a little further clarification. Words | 
in capital letters will actually be written as such within an © 
entry. Words in small letters will never be written as such 
within an entry. 


Now and then, a beginner misses the point when he reads an entry 
format such as "GO TO procedure-name", and writes: 


L! || teio! Ito} [PlRloic 


Actually, the programmer was expected to write GO TO followed by 
the programmer-supplied name of the to which the program 
was to branch. 


ee0e 
procedure | 


Technically, PROCEDURE-NAME ts a valid programmer-supplted name, 
even though tt ts not espectally meaningful; thie GO TO would 

work tf there were a procedure whose name was PROCEDURE-NAME. | 
But tmagine the mess that results when a mtsgquided programmer 


writes PROCEDURE-NAME in every entry that calls for a procedure 
name ! | 


EiJ Here is a variation on the misunderstanding of format words 
printed in small letters. Suppose that an entry had the format 
"DISPLAY literal", and a programmer wrote: 


If he was trying to display the message, END OF PHASE 4, the 
programmer should have 


written only DISPLAY LITERAL, and stored the message 
as a constant 
omitted the word LITERAL and written DISPLAY ‘END OF PHASE 4' 
written the word “literal” in small letters, as shown in . 
the format 
omitted the word DISPLAY, since the underline means it 
is optional 


eee | 


omitted the word LITERAL and written DISPLAY ‘END OF PHASE 4', 
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Reserved words are required in an entry when they are underlined. 
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However, the information represented by words printed in small 
letters 


may be omitted if the programmer is tired of writing 

is optional regardless of whether the words are underlined 
is required even though the words are never underlined 

is never written as such within an entry 


is required even though the words are never underlined 


In certain cases, “required" words and information may be part of 
an optional portion of an entry. Optional portions of a format 
are enclosed in (what symbols?) ; 


[] (brackets) 


The notion that some "required" parts of an entry can be 
"optional" is not really as paradoxical as it sounds. What we 
mean is that a portion of an entry must be included under certain 
circumstances, and omitted under other circumstances; and that 
portion is required to contain certain words and information 
when it is included. 


It's like saying that it is optional to rent a car to get where 
you're going, but that if you decide to rent the car, you are 
required to pay the rental charge. 


Let's take a COBOL example. Here is an optional portion taken 
from the item description entry format: 


[VALUE IS literal] 


This clause is used when you want to specify the initial value of 
an item in working-storage. If you decide to use the clause, 
what must you write? 


You must write the word VALUE and a literal. (If you wish, you 
may write the word IS after VALUE.) 
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stacked within a pair of brackets, like this: 


paste 
UNITS 


In the above example, the programmer 


must write either UNIT or UNITS in the entry 


may write UNIT, or UNITS, or neither, in the entry 
may write UNIT, or UNITS, or both, in the entry 


May write UNIT, or UNITS, or neither, in the entry 


When an entry provides a choice of required portions, they are 
stacked within a pair of braces, like this: 


POSITIVE 
NEGATIVE 
ZERO 


In this case, the programmer 


must write at least one of the words, and may write all three 


must write one, and only one, of the words 
may write one, or none, of the words 


must write one, and only one, of the words 
This is the format of a class test, which is used in IF entries: 


data-name IS [NOT] | SEPERE 


ALPHABETIC 


Can you explain which parts of this format are always required? 
Sometimes required? Never required? 


A data name, and either NUMERIC or ALPHABETIC are always required. 

The word NOT is sometimes required (when you want to test for the | 
opposite of NUMERIC or ALPHABETIC). The word IS is never | 
required. ! 


eee 
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You wtll get plenty of addtittonal practtce on the COBOL format 
notatton system as we examine the entries, division by division, 
beginning wtth the Identification division. Needless to say, 
being able to interpret the format notation ts just a small part 
of the game. The larger part ts knowing when and why to write 

an entry tn your program; sometimes the rules are clear-cut, 
Leaving you no chotce in the matter, but most of the time (alas!) 
you will be required to know what it ts that you are trying to 
accomplish. 


To help you wtth the "whens" and "whys", the reference handbook 
summarizes the funetton of each entry or set of entrtes. And 
because the notation system ts not foolproof, and ts sometimes 
open to vartous tnterpretatons, examples of the entries, and 
notes about the formats, are also given. Be sure to study the 
funetton, example, and notes, tn addition to the format. 


Reading assignment: IDENTIFICATION DIVISION 


Keep the reference handbook open to the page on the Identification | 
divtston while we examine the entrtes that make up the dtvtston. 


How many required entries are there in the Identification 
division? 


Three (division header; Program-Id paragraph header; and program 
name entry) 


Each entry is required to end with (what symbol?) ‘ 


a period 


What other punctuation is required in the division? 
eco 
Quotation marks are required around the program name. 
Remember that required symbols are printed in the format, though 


not underlined. Opttonal symbols, such as commas, that may be 
used in entries are not printed in the format at all. 
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Ef} Program name may be up to characters long. 


eight 


51 Programmers sometimes ask, "How will I know what the program name 
ts?" I suppose the best answer ts that tt all depends on the 
type of job sttuatton you are working in. If you are one of 
several programmers who are tmplementing a large system, then 
the system designer will probably have spectfted the name of each 
program in the system. If you are working independently on a 
project of your own, tt wtll no doubt be up to you to invent a 
name for your program; but be sure to find out whether standards 
have been set up for eclasstfytng and naming programs in your 
computer installatton. If you are a student, and the program ts 
a class exercise, you can most ltkely dream up any name you 
please; or perhaps your teacher will come up wtth a choice name -- 
or two -- for your program. 


The Program-Id paragraph is required in every program; all of the 
other paragraphs are ° 


optional 


Since the format for each optional paragraph is enclosed in a 
separate pair of brackets, you can conclude that 


you may choose to write one, or none, of the optional 
paragraphs 

you must write one or more of the optional paragraphs 

you must write one, and only one, of the optional paragraphs 

you may write any number, or none, of the optional 
paragraphs 


you may write any number, or none, of the optional paragraphs 


The paragraphs are not stacked wtthin brackets; each ts a 

separate optton. Note, though, that your installatton very likely 
has ftrm standards for documentatton that must be provtded in the 
Identifteatton dtvtston. Obvtously, such standards override the 
faet that the comptler allows you to omit all of the opttonal 
paragraphs. 
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Each optional paragraph consists of a paragraph header and 


"entry...". What does "entry..." mean? 


One entry is required, and additional entries are permitted. 


Are there any restrictions on what may be written in the entries 
in optional paragraphs? 


No, except that each entry must be terminated by a period. 


These entries are simply comments, and the compiler has been 
programmed to tgnore thetr contents. Therefore, you may wrtte 
anything -- reserved words, quotation marks, numbers, parentheses, 
asterisks -- you name tt. Whatever you write will be printed in 
the listing of the source program, so that your explanatory 
comments will always accompany the rest of the program. Needless 
to say, your comments should be concise and pertinent; don't use 
the Identifteatton divison as a vehicle for getting your short 
novels into print, or for publishing sonnets insptred by the 

cute programmer tn Dept. 983B. 


You are supposed to have a pad of COBOL program sheets; tf you 
don't, get one at this time. 


On a COBOL program sheet, write a complete Identification division 
for a hypothetical program named EXPENSES. The program is 
designed to produce a weekly listing of all operating expenses, 

by department, of our mythical company, Dynamic Data Devices, 

Inc. Naturally, the output and the program itself are strictly 
company-confidential, and available only to authorized personnel. 
The programmer, Charles Brown, himself an unauthorized person, 
wrote the program on November 9, 1965; and compiled and tested 

it, blindfolded, the very next day. 


From this description, see if you can sort the pertinent 
information into the proper paragraphs. Most important, be 
certain that you observe the rules for making entries on the 
program sheet. 


The solution for this frame tse printed on the next page. 
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The Identtfication dtvtston that you have written should 
resemble this: & 


Check your work on each of the following points: 


1. Did you begin every header entry in margin A 
(preferably in column 8)? 

2. Did you keep all other entrtes within the B-margin? 

3. Did you terminate every entry with a pertod? 

4. Did you remember to enclose the program name in 


quotatton marks? , 


| 

If you made any mistakes, take a moment to correct them. 
eee 

| 
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Paragraph header entries do not have to be written on separate 
lines. Which line below shows another correct way in which the 
Program-Id paragraph might have been written? 


The first chotce ts incorrect because there tis no period following 
PROGRAM-ID. The third chotee has a pertod, but the mandatory 
space after the pertod has been forgotten. The fourth chotece has 
two mistakes; the hyphen in PROGRAM-ID tis mtssing, and the pertod 
has tmproperly been written inside the quotatton marks. 


Whether or not you will choose to have the paragraph headers on 
separate lines ts something for you or your company to decide. 
Here are two arguments in favor of ustng separate lines: 

(1) program listings are easter to read when all of the non- 
header entries are aligned; (2) all fixed header entries can be 
prepunched into eards, and the deck of header cards can be 
reproduced as required, thereby eliminating all future writting 
and keypunching of header entries. 


The Envtronment divtston ts almost as easy as the Identitftecatton 
ditviston. Its format ts a bit more rigid, though, stnee each 
entry has a speetfte meaning for the compiler. (By contrast, 
you will recall that the compiler tgnores the contents of most 
Identtfteattion division entries.) 


You wtll first study the overall format of the Environment 
division, and later study two particular entrtes tin detatl. 
Don't read about the SELECT and APPLY entrtes yet. 


Reading assignment: ENVIRONMENT DIVISION 
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BSN Refer to your handbook to answer these questions. 


What are the two sections of the Environment division? 


Configuration section and Input-Output section 


The Input-Output section is an optional portion of the division's 
format. This section 


must be included in any programs that process data 


| mus be included or omitted at the wham of the programmer 
must be included when there are input or output files 


must be included when there are input or output files 


Data "ftles" are defined and discussed in the reference handbook 
for the prevtous course. 


When an Input-Output section is written, the paragraph must 
be included, but the paragraph may be omitted if no special 
techniques or conditions are defined. 


File-Control; I-O Control 


PYa The Configuration section, containing the Source-Computer and 
Object-Computer paragraphs, is required in every program. Each 
of these paragraphs may contain the reserved word and the 

of the computer. | 


IBM-360; model number 
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If your company has more than one System/360, you will probably 
want to specify which computer will be used to compile and 
execute your program. The model number that you write must 
consist of a letter representing the storage size, followed by 
the actual System/360 model number. 


The letters that represent storage capacities are C for 8K; D for 
16K; E for 32K; F for 64K; G for 128K; H for 256K; and I for 512K. 
As was explained in the previous course, these "K" capacities are 
only rough approximations of the number of bytes of storage; 

exact figures are given in the previous reference handbook. 


If your computer is a System/360 Model 30 with a storage capacity 
of 128K, which of these would be the correct model number to 
write in your COBOL program: 


360/30G 
30/G 
30G 

G30 


G30 


On a COBOL program sheet, write the first half of the Environment 
division for the hypothetical "Expenses" program for which you 
coded an Identification division earlier. That is, write the 
division header and a complete Configuration section. The program 
is to be executed on a 16K Model 30, but it will be compiled on 

a 64K Model 40. 
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Thie system flowchart gives us additional information about the 


computer environment in which the "Expenses" job te going to be 
Pun. 


INPUT FILE= EXPENSE-FILE 
EXTERNAL NAME=EXPIN 
DEVICE=2400-SERIES 
MAGNETIC TAPE UNIT 


JOB= EXPENSES 
SYSTEM=IBM-360 
MODEL 30, 16K 


OUTPUT FILE =EXPENSE -LIST 
EXTERNAL NAME = EXPLIST 
DEVICE =1443 PRINTER 


. 


From the flowchart, tt ts clear that the job involves data files; 
therefore, an Input-Output section ts required in the program, 
and you will have to learn the format of SELECT entries for the 
File-Control paragraph. 


(Note that the printed report ts treated as a file; each line 
printed on the form constitutes one record of the file.) 


Reading assignment: SELECT 


Apply the information that you have just read, by coding the first 


part of the Input-Output section for the "Expenses" program 
(section header and complete File-Control paragraph). The flow- 
chart in the previous frame contains all of the programmer- 
supplied information that you need. You may, of course, look 
back at the "ENVIRONMENT DIVISION" page of the reference hand- 
book, to see the overall format of the section. 


Potnts to check: (1) The input file must be assigned to a 
UTILITY device, since it ts a magnetite tape file. (2) The output 
file must be assigned to a UNIT-RECORD device, since it is a 
printed report. (3) External names must be enclosed in quotation 
marks. (4) Make sure you have hyphens and pertods where 
required. 
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69 The SELECT entrtes that you have coded may not be exactly the 


same as the entries printed in the preceding frame. As you can 
tell from the format, "devitce-number" ts optional (and so are the 
words TO and UNIT, and the commas). 


Let's make thts elear: you must let the computer know, sooner or 
later, what specific devices are going to be used for tnput and 
output. If the devices are not specifted in the source program, 
they wtll have to be specified on job control cards at the time 
that the object program is executed. In some cases, we may wish 
to be able to change device assignments each ttme the job ts run; 
tn such cases, we wtll make our program "device independent" by 
not spectfytng devices in the SELECT entries. 


In most cases, though, our programs are written with spectfte 
devices in mind. Then, tt its just as well to indtcate the devtce 
numbers right tn the source program. This ts true of our practtce 
problem; the system designer has definitely told us whitch input 
and output devtces are going to be used. 


The rules for creating an external name for a file are the same 
as the rules for creating a for the Identification division. 


program name 


The comments dealing with "where program names come from" apply 
equally to external file names. 


The only thing needed to complete our practtce Environment 
diviston tse an I-0-Control paragraph. You know that this 
paragraph ts omitted when no special techniques or conditions are 
needed; however, we must inelude the paragraph in thts program, 
because we have a special condition that must be specified -- the 
form overflow condition on the printed report. (Form-overflow 

ts the only one of the "special techniques and condittons" that 
will be discussed in thts course.) 


Reading assignment: APPLY 
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EZ Keep in mind that the overflow condition name that is defined in 
the I-0-Control paragraph will be used in the Procedure division. 
There we may write an entry such as: 


On your program sheet, finish the Environment division. Define 
the name LAST-LINE to represent the form-overflow condition on 
the printed report. 


Points to eheck: (1) Did you remember the paragraph header? 
(2) The file name of the report ts required in the format, not 
the external name of the file; don't confuse the two. 


EZ] It should be apparent to you that the "APPLY overflow-name" 
entry ts used only when you have printed output. If our job had 
called for magnetite tape output as well as magnetic tape input, 
this APPLY entry would have been omitted -- in faet, we would 
have omttted the enttre I-0-Control paragraph. 


74 | To conelude our look at Environment diviston entry formats, let's 
make just one more potnt: when you wrtte a dtviston, you must 
make your entrtes tn the sequence in which they are indtecated in 
the format; and you are allowed to make only those entries shown 
tn the format. There ts no provision, for instance, for making 
explanatory comments in the Environment dtviston. You are not 
allowed to create a new paragraph, nor to "borrow" the Remarks 
paragraph from the Identification divitston. 


The moral of the story ts: follow the formats religiously; 
don't deviate or improvise. After all, when you write a source 
program, you are preparing input to be processed by a computer 
program (the compiler); hence, you must adhere to the spectfi- 
ecattons for that program's input -- or else, your entries will 
be dtagnosed as errors, and rejected as non-processable. 
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@ LESSON 3 


BZ9 As you discovered in the previous course, the Data divtsion ts 
probably the most complex of the four divisions. Certainly, it 
demands much more of the programmer than the Identtfieatton and 
Environment divitstons do. To be sure, the complexity of the 
coding depends on the complexity of the data itself; and the 
programmer's job ts easter tf he ts intimately familtar with the 
Layouts of the records and files which he ts trying to describe 
tn COBOL. 


Another thing that makes the job easier ts that the programmer 
can gtve hts complete attentton to describing files and records, 
without being concerned with the procedures that will process the 
data. That its, the task of desertbing the data has been logtecally 
separated from the task of processing the data; this separation 
ts an tmportant feature of COBOL. In practtce, this means that 
each record will be desertbed once, and the same record 
desertption will be used in every program that processes the 
record. It also means that all programmers will use the same 
names to refer to data items. And it means that we are justifted 
tn studying about the Data diviston without worrying about the 
Procedure dtvtiston at the same time. 


We have trted not to duplicate informatton that you studied in 

© the prevtous course. As a result, itt ts taken for granted that 
you recall the baste definitions and concepts; tf you don't, you 
will want to re-read the appropriate topics in the previous 
reference handbook. 


We will first work on file descriptions, then on record structures 
and descriptions, and lastly on item descriptions. 


Reading assignment: FILE DESCRIPTION 
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The only portion of a file description entry that is written in 
the A-margin is ° 


FD (the “level indicator") 


Each clause of a file description 


separate line. 


must be 
may be 


written on a 


may be 
Having each clause on a separate ltne makes the entry easter to 


read and easter to correct or update. 


Besides FD and the file name, which clauses are required in every 
file description? 


LABEL RECORD and DATA RECORD clauses 


The file name given in a file description must correspond to a 
file name specified ina entry in the division. 


SELECT; Environment 
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EX] in the next five frames, we will deal with files of punched 
@& ecards. 
The recording mode of a punched card file must be , because 


F, because all records in the file are the same length 
(80 characters), and there are no record-length control fields. 


Recording modes are discussed in detail in the reference handbook 
for the prevtous course. 


Ei For a card file, the BLOCK CONTAINS clause would be omitted, 
because | 


each block contains only one record 
there are no blocks in a card file : 


eee 
each block contains only one record 


By definitton, all files contain blocks, sitnce a "block" ts the 
& unit of data that is transferred to or from storage at one time 

by the input-output device. A card file ts read or punched one 
ecard at a ttme; hence each ecard ts a block, and contains just 
one record, 


Every record in a card file contains 80 characters, regardless of 
how many card columns are punched. (Unpunched columns contain 
the character "blank".) Thus, each record description for a card 
record must account for all 80 characters, and the file 
description entry 


{should state RECORD CONTAINS 80 CHARACTERS ] 
[should account for only the columns that are actually punched] 
[may be omitted]. 


EITHER should state RECORD CONTAINS 80 CHARACTERS, OR may be 
omitted 
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EER Every card in a file is a data record. This includes even those 


cards, such as leader or trailer cards, which contain accounting 
or control information about the file. 


From this you can conclude that label records are 


ghee 
in card files. 


omitted 
eee 
omitted 


Let me restate the tdea: all cards must be defined as data 
records, even though certatn cards in the frle may serve the same 


funetton as label records would in tape or disk files. 


On a COBOL program sheet, write the file description entry for a 
card file called MAILING-FILE. The file contains three types of 
cards ~-- ACTIVE-CUSTOMER, INACTIVE-CUSTOMER, and PROSPECT cards. 


2e®e 


You might also have wrttten a BLOCK CONTAINS clause after the 
RECORDING MODE clause: BLOCK CONTAINS 80 CHARACTERS. Make 
certatn that you wrote the entire FD-entry as one entry; that is, 
make sure you have just one period -- at the very end. fYhe other 
Ast ats ad shown above (semicolons and commas) might have been 
omitted. 
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EEX Files of records that are going to be printed are treated 
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exactly the same as files of cards. The recording mode its F, 
stnee each output line has a fixed length equal to the capacity 
of the printer. Each block contains only one record, since lines 
are printed one at a time. And there are no label records. 


On another program sheet, write the FD-entry for the EXPENSE-LIST 
file (the output file of the EXPENSES program). Two kinds of 
lines are to be printed in the report; so there are two types of 
data records in the file. The lines are named EXPENSE-DETAIL and 
DEPARTMENT=-TOTAL. 


DEPAIRTMEINT—TIOTALI|. 


Now let's turn to files recorded on tape or disk. Here the 
recording mode can be V, F, or U. Each block generally contains 
more than one record. Usually, the file contains label records. 


On still another program sheet, write the file description of 
EXPENSE-FILE (the input file of the EXPENSES program). You will 
recall that this file is on magnetic tape. The file has standard 
label records, and one type of data record, called EXPENSE~RECORD 
All data records in the file are a fixed length, and each record 
is preceded by a record-length control field. There are 20 
records per block. 


The recording mode must be V, because there are record-length 
control fields. (The RECORDING MODE clause might therefore have 
been omitted.) 
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YA The format of the File section requires that each file description 
must be followed by one or more record desertpttons -- one record @ 
description for each type of record tn the file. Record 
descriptions were discussed tn detatl in the previous course, and 
we wtll revtew them only briefly here. The tmportant points are 
that a record desertptton is a set of ttem descriptions; that it 
shows the sequence of ttems in a record; and that the ttems are 
arranged tnto levels to show the structure of the record. 


Reading assignment: RECORD STRUCTURE 
An illustration of levels of data items 
AN EXAMPLE OF A RECORD DESCRIPTION 


eee 
Level number is always assigned to the record as a whole. 
ee0e 


O01 


EI suppose that we have a tape record named STOCK-TRANSACTION, which 
contains just three items, as pictured below. 


STOCK- STOCK- & 

TRANSACTION | | NUMBER | 
QUANTITY | 
TRANSACTION- 
CODE 


What level number would you assign to: 


STOCK-TRANSACTION? 
STOCK-NUMBER? 
QUANTITY? 
TRANSACTION-CODE? 


Level 01 must be assigned to STOCK-TRANSACTION, which is the 
record as a whole. The other three items would be assigned level 


number 02 (or any number greater than 02, but not greater than 
49). 


Normally, the levels are numbered consecutively -- 01, 02, 03, 
ete. -- and we wtll use this convention in this book. However, 
your firm may have adopted another numbering convention. The 
tmportant thing to recognize about the record pictured in this 
frame ts that STOCK-NUMBER, QUANTITY, and TRANSACTION-CODE are 

all at the same level; what the level number is doesn't matter -- & 
as long as all three have the same level number. 
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EX Now let's envision a slightly more complicated record, called 
© JOURNAL-ENTRY. It consists of ENTRY-NUMBER, DATE, DESCRIPTION, 

and AMOUNT, in that order. Some of these items are broken down 
further: ENTRY-NUMBER is made up of PAGE-NUMBER and LINE-NUMBER 
and DATE is made up of YEAR and DAY. 


See if you can diagram the structure of this record. Also, 
indicate the level numbers. (Just sketch this roughly on a piece 
of scratch paper.) 


LEVEL—> 01 02 O03 
JOURNAL- ENTRY- PAGE - 

ENTRY NUMBER NUMBER 
|| LINE- 

NUMBER 


Ph 


ETN Next, check your understanding of the order in which items are 
entered on the program sheet. Using a program sheet, write the 
level number and name of each item in the record diagrammed in 
the preceding frame. 


Put each item on a separate line. (Don't be concerned about 
making complete entries, with PICTURE clauses, and so on -- just 
write the level numbers and names.) 
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Pa check these points on your program sheet: (1) Indenting tis 
htghly destrable, but not required. The convention is to indent 
each level to the next column whose number ts a multtple of 4 
(these columns are marked by heavier lines on the program sheet). 
So, tf you began with level 01 in column 8, all level-02 entries 
would begin tn column 12, all level-03 entries would begin in 16, 
and so on. (2) Remember thts program sheet rule: level numbers 
may be written tn the A-margtn, but not data names or any other 

elements of an ttem desertpttion entry. This means that a level 
number may be written tn columns 8 and 9, but that the name of 
the ttem must not start prior to column 12 -~- the name must not 
begin in column 11. (3) Did you enter the level numbers and 
names in precisely the order shown? If you did, skip the next 
two frames. If you did not, and you are puazled about the order 
tn whteh ttems are to be entered tn a record desertptton, go 
right on to the next frame. 


This flowchart depicts the steps that a programmer follows when 
making entries tn a record desertptton. Study tt briefly and 
then proceed to the next frame, in which we wtll apply this 
procedure to the exeretse that you just completed. 


RECORD DESCRIPTION 
IS COMPLETE 


ENTER AN ITEM 

IT CONTAINS AT 

THE NEXT-LOWER 
LEVEL 


HAVE 
YOU ENTERED 
ALL ITEMS IN THE 
LAST PREVIOUS 
GROUP 
ITEM 


IS THE 
LAST-ENTERED 
ITEM A GROUP 

eM 


ENTER THE 
HIGHEST-LEVEL 
(LEVEL O01) ITEM 


CHECK THE 
LAST Fae ae 
GROUP ITEM 


THE NEXT. 
HIGHER LEVEL 


eee 
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In order to understand this procedure, you must recognize that 
the highest-level item has the smallest level number (01). And 
that Larger level numbers designate lower levels. With this in 
mind, let's trace the steps taken in writing the record 
description for the JOURNAL-ENTRY record. 
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1. 


3. 


5. 


6. 


8. 


ttem that tt contains at the next-lower level: 


We start by entering the level-01 item: 
lot, WOURINAL-enTRY | | | | | 
JOURNAL-ENTRY t8 a group item, since it is subdivided into 
smaller items; therefore, we enter the first ttem tt contatne 
at the next-lower level: | 

_itio2| Jentriv-numBper| [| | fs 
ENTRY-NUMBER is itself a group item, so we enter the first 


__t  03, IPA GE/- NUMBER 


PAGE-NUMBER tis not further subdivided; so itt ts an elementary 
ttem, not a group item. But we have not yet entered all of 
the ttems that are part of the last previous group ttem 
(ENTRY-NUMBER); we now enter the next level-03 item that it 
contatns: 


LINE-NUMBER ts not a group ttem, and we have entered all of 
the items that make up ENTRY-NUMBER. Now we must check to 
see tf we are fintshed with the last previous group ttem at 
the next higher level; that would be level 01, and we have 
not yet entered all of the ttems in JOURNAL-ENTRY. Ite 
second ttem at the next-lower level (02) ts: 


: H i E i i 
& 2 | : i Pi 

3 2 i z 

: 2 : : 

: E E 


Sinee DATE ts a group ttem, we enter its first sub-item: 


J fO3) IVEAR, tit 


We are through with DATE, but there are more items in 
JOURNAL-ENTRY, and the next tis: 


5 


102 |DE'ScRIP TION 


Now that we have entered all items at all levels, the record 
description is complete. 
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[3 rhe card record below offers a chance to draw up a record 


(3/66) 


desertpttion with several levels of ttems. As in the last 
exercise, we are not concerned with the usage and ptctures of 
these items; only with thetr levels and names. While our 
objective is to prepare a record description, we generally find 
tt easter to draw a schematie diagram of the record first. By 
doing this, we can arrange items into their proper levels and 
sequence before making entrtes on a program sheet. 


On a piece of scratch paper, draw a schematic diagram of the 
record below. Notice that the last portion of the record is 
unused; you must consider these unused positions as an item in 
the record -- you must assign the appropriate level number to it, 
and call it FILLER. 


| SCC EMPLOYER 


LAST-NAME NAME 
= 


oO 
1 
oO 
O 
uJ 
& 
i 
bE 
= 
WW 
an} 
_~ 
- 
ep) 


The correct solution for this frame ts printed on the next page. 
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LEVELS 


| Ol 02 O05 06 
@ STUDENT - STUDENT ATTENDEE LAST-NAME 
RECORD 


INITIALS 


EMPLOYER NUMBER 


GRADES APTITUDE- 


oT 


FINAL-EXAM DATE MONTH 


| QUIZ-AVERAGE 


DAYS- 
ATTENDED 


COURSE SUBJECT 


TOPIC 
CLASS SERIAL 
REGION 


START MONTH 


DURATION 


FINISH MONTH 


mM 
O 
aS 


Ol 


| FILLER | 


Check carefully to make certain that your diagram has all of the 
items arranged tnto the same levels and sequence as shown above. 
" If you made any errors, correct your dtagram. 
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Next, enter the level numbers and names for the record you just 
diagrammed, on program sheets. Once again, these are not complete 
entries; our objective right now is just to make partial entries 


in the correct sequence. 


em mR re 
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[YA If you have used programming languages in which every data item 
}@ must have a different name, you are probably wondering about 
some of the data names in the record with whitch we have been 
working. The names MONTH, DAY, and YEAR are used three times, 
and NAME ts used twtece. 


Duplicate names of thts sort are permitted tn COBOL. The 
phtlosophy ts that you should be able to use the most reasonable 
names for your data items. If ftve of the ttems itn a record are 
addresses, for instance, then by all means call each one of them 
ADDRESS. (The main restricttons,you will recall, are that a 
name cannot exceed 30 characters and that no name can be spelled 
the same as a reserved word.) 


But when tt comes to processing one of these data ttems, in the 
Procedure dtviston, there must be a method for speectfying whitch 
particular ADDRESS you want to process. In COBOL, the method is 
called "qualtfreatton" of names. 


Reading assignment: DATA NAMES 


Two ways of naming data items 
Qualification of names 


98 | Qualification is really quite simple. In our STUDENT-RECORD, we 
could make unique reference to each of the NAMES by calling one 
NAME OF EMPLOYER, and calling the other NAME OF ‘ 


COURSE 


99 Names are qualified in the [Data division] [Procedure division]. 
ee0e 
ONLY in the Procedure division 
Of course, when we write the Data dtviston, we must take care to 


make tt posstble to qualtfy all duplicate names that we use. 


Eft When the two data items have the same name, poet one must be 
qualified. ° 


both 


- FR A 
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ERT There are two main requirements that qualifiers must meet: 
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lie A qualifier must be the name of a group item that 
contains the item whose name is to be qualified. 


2% A qualifier of one item's name must be different from 
any possible qualifier of another item with the same 
name. 


Let's apply these requirements in the case of STUDENT-RECORD. 
Close to the end of that record are two items named DAY. The 
first is the day on which the class started; the second is the 
day on which the class finished. Suppose that we qualify the 


first DAY by referring to it as DAY OF START. 


Now the second DAY must be qualified. Four ways of qualifying it 
are listed below, only one of which meets the requirements. Pick 
out the correct way, and explain why each of the other three ways 
is not correct. 


DAY OF COURSE 
DAY OF CLASS 
DAY OF FINISH 
DAY OF DURATION 


eee 
Only DAY OF FINISH is correct. COURSE and DURATION are also 
possible qualifiers of the other DAY, so there would still be 


doubt as to which one was being referred to. CLASS does not 
contain DAY, so it is not a possible qualifier at all. 


The third day in STUDENT-RECORD can be qualified by referring to 
it as DAY OF [DATE] [GRADES] [FINAL-EXAM] [STUDENT-RECORD] 
[STUDENT]. 


All of these, except STUDENT-RECORD, are acceptable qualifiers. 


Some are better than others, though, from the standpoint of 


"making sense". DAY OF GRADES or DAY OF STUDENT don't make as 

much sense as DAY OF DATE or DAY OF FINAL-EXAM. More than one 

qualifier may also be used; for tnstance, DAY OF DATE OF FINAL- 
EXAM, 
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eke Sometimes it is absolutely necessary to use two or more qualifiers 
& for a name. Examine the excerpt from a record description, below. 


We want to refer to the item marked by an arrow. Obviously, we 
cannot refer to it merely as NUMBER, as there are four NUMBERs; 
and we cannot refer to it as NUMBER OF SALES, as there are two 
of those. 


We must, therefore, go one step further, and refer to it as ‘ 


NUMBER OF SALES IN THIS~YEAR 


The words IN and OF can be used interchangeably. Use whichever 
word sounds "right" to you. | 


eka Since THIS-YEAR was the “unique” qualifier in the example above, 
could we have referred to the item simply as NUMBER IN THIS-YEAR? 


No 


Make sure that you see this point. There are two NUMBERs tn 
THIS-YEAR. Both qualtfters are definitely needed. 
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Keep in mind that the programmer makes qualtfteatton of a name 
posstble by the way he uses that name in the Data diviston. He 
must be careful to avoid sttuattons in whtch a name cannot be 
untquely qualrfted. 


Examine this excerpt from a record description, paying particular 
attention to the items marked by arrows. These items have the 
same name, and because of their places in the structure of this 
record, the name cannot be uniquely qualified. 


The only possible qualifier for the first SQUARE-FOOTAGE is 
SALES-FLOOR. But there are two SQUARE-FOOTAGES in SALES-FLOOR, 
so it is not a unique qualifier. (Note that it is incorrect to 
name the items as shown, even though the second SQUARE-FOOTAGE 
can be uniquely qualified.) 


Can you think of an easy way to correct the error in this 
example? 


Simply change one of the names; for instance, the first SQUARE- 
FOOTAGE might be renamed FLOOR-AREA. When this is done, no 
qualification is needed for any of the names in this example. 


106 | To sum up, COBOL permits you to use dupltcate names for data 
ttems -- provided that each name can be qualified to make tt 
dtfferent from every other name. 


This certainly applies to the name of records, as well as smaller 
data items. The reference handbook states that it is permissible 


for two (or more) records to have the same name, but that the 
names of files must be unique. | 


It should now be clear to you that records with the same name 


poe be in different files) . 
may be in the same file 


must be in different files 
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LESSON 4 


So far, we have been dealing wtth the level numbers and names of 
data ttems. In thts lesson, we will add the PICTURE, VALUE, and 
USAGE clauses, tn order to construct complete ttem description 
entrtes. These three clauses are the only ones needed for most 
ttems, and our emphasis wtll be on learning to use them correctly. 
(To avotd the confusion of too many facts and rules at one time, 
we wtll omit the REDEFINES and OCCURS clauses for the time 

betng.) 


The reference handbook for the previous course explains the 
meanings of the more common picture characters (xX, A, 9, S, V, 
and P), and the significance of the usage words (DISPLAY, 
COMPUTATIONAL, COMPUTATIONAL-1, COMPUTATIONAL-2, and 
COMPUTATIONAL-3). If you have forgotten what these characters 
and words mean, return to that handbook now, and refresh your 
memory before you continue with this lesson; otherwise, go on to 
study the format of ttem description entries. 


Reading assignment: ITEM DESCRIPTION 


An item description entry must contain at least a and a 
, Plus a period. 


level number; data name (or FILLER) 


The reserved word FILLER is used for items that 


[contain no information, or blank spaces] 
[contain information that will not be processed]. 


EITHER contain no information, or blank spaces OR contain 
information that will not be processed. 
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GR) The picture of a data item may indicate several things about the 


12 
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item. However, a picture will never indicate 


[the location of an assumed decimal point] 

[the presence of an operational sign in an item] 

[the data code in which the item will be stored] 

[the editing that is to be done to form the item] 

{the initial value of the item] 

[the class of the item: numeric, alphabetic, or alphanumeric]. 


eee 
the data code in which the item will be stored AND the initial 


value of the item 


The data code is given tn the USAGE clause; the tntttal value ts 
spectfted tn the VALUE clause. 


must have 
Descriptions of elementary items j may have PICTURE clauses. 
must not have 


must have 
must have 

Descriptions of group items } may have PICTURE clauses. 
must not have 


must not have 


VALUE clauses are allowed in item description entries only in the 
section of the Data division. 


Working-Storage 
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BRR Descriptions of elementary items in the Working-Storage section 


@ must have 
need not have} VALUE clauses. 
must not have 


need not have 


Descriptions of group items in the Working-Storage section 


must have 
need not have} VALUE clauses. 
must not have 


must not have 


(116 | USAGE clauses are allowed in [elementary items] [group items] 
in the [File section] [Working-Storage section]. 


BOTH elementary items AND group items; BOTH File secti'on AND 
Working-Storage section 


va The USAGE clause may be omitted if the item's usage is ° 


DISPLAY 


The USAGE clause may also be omitted for an item in a record 
description, if usage has already been specified for ° 


a group item that contains this item 
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Let's apply these rules to a few sample data items, beginning with 
independent items. You will recall that independent items are 
entered in the [File section] [Working-Storage section], and that 
they are [elementary items] [group items]. 


Working-Storage section ONLY; elementary items ONLY 


The level number of an independent item is required to be : 


77 


wae Since an independent item is an elementary item, its description 
must contain a clause. 


PICTURE 


Suppose that we need a work area large enough to hold 20 alpha- 
numeric characters. On a COBOL program sheet, write the item 
description entry that is needed to set up such an area. Name 
the item WORK-AREA. 


The USAGE clause te omttted, because the usage of an alphanumeric 
ttem must be display; however, you might have included the clause: 
USAGE IS DISPLAY. | 
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| On the same program sheet, write the entry to define another 

] independent item, named DIFFERENCE. This item is to contain a 
Sign and five digits, stored in "packed decimal" (internal 
decimal) form. 


Note: The pteture character S, whitch you will use to indicate 
that thts ttem contains an operattonal sign, must be written as 
the left-most character of the picture -- even though the stgn 
will actually be stored in the right-most byte of the item in 
storage. 


Potnts to check: (1) The picture could also have been written 
S9I9999; however, the abbreviated form -- with a number enclosed 

tn parentheses -- ts generally used whenever a ptcture character 
ts to be repeated more than four times tin succession. (2) The 
usage word, COMPUTATIONAL-3, ts mandatory in this case, to 
tndtcate that the data ts packed-decimal. (3) You mtght also have 
used the worde USAGE IS before COMPUTATIONAL-3. 


awZS COBOL students often wonder whether to inelude or omit opttonal 
words tn an entry -- for instance, the words USAGE IS in the entry 
you just wrote. The best rule ts to include these words when they 
help the reader to understand an entry; otherwtse, to omit them. 


Constder the USAGE clause. If the reader doesn't know what 
COMPUTATIONAL-3 means, he will not know what USAGE IS 
COMPUTATIONAL-~3 means etther. And, tf he does know the meaning 
of COMPUTATIONAL-3, the words USAGE IS are unnecessary. Here 
the opttonal words don't clarify the meaning, so they might ae 
well be omitted. 


Take another case: the "greater than" relatton test, in which it 
ts permisstble to use just the word GREATER, in place of IS 
GREATER THAN. But the procedural statement IF BALANCE IS GREATER 
THAN MINIMUM-LEVEL... 18 easter to read and understand than ites 
abbreviated equivalent, IF BALANCE GREATER MINIMUM-LEVEL ... 

Here the opttonal words ought to be tneluded. 
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For most ttems, you will not be concerned about initial values. 
For example, when you describe the ttems that make up an input 
record, you simply want to reserve an area in storage to receive 
the record; spectfiece values are going to be put tnto those items 
when the data file ts read. 


In some instances, though, you may want to spectfy the initial 
value of an item. For this, of course, you would use the VALUE 
elause in the item description. One such instance ts when you 
want to set up a constant; another ts when tt ts tmportant for a 
work area to have a certain value at the outset of program 
execution. 


Keep thts fact tn mind: Unless you specify a value, there is 
no way of knowing what the initial contents of an ttem wtll be. 
Storage ts not cleared before your object program is loaded, so 
you must not assume that items contain blanks or zeros at the 
start of a run. 


On your program sheet, write the entry to define a constant whose 
value is 500. This number is to be stored in binary form, and 
named LIMIT. 


Note: Binary data ts always signed, so don't forget the S in 
the ptcture. 


VALIUE 5/00 


wim A non-numeric literal ts used itn the VALUE clause for alphabetic 
and alphanumeric ttems. Accordingly, you wtll want to enter a 
non-numeric literal in the next practtce ttem. 


Write the item description entry for an alphabetic constant which 
is to serve as the title of a report. The contents of the item 
are to be DEPRECIATION SCHEDULE and the item is to be named TITLE. 


The usage of alphabetic data must be display (BCD), so the USAGE 
elause may be omitted, as shown. It would also have been correct 
to wrtte DISPLAY or USAGE IS DISPLAY in the entry. 
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Independent items, by definition, cannot be subdivided, nor can 
they be combined into groups. If items are to be combined or 
subdivided, they must be described as records. 


The main reason for combining items into records is to make it 
possible to refer to a group of items by one name, and therefore, 
to process the entire group at one time. To illustrate, suppose 
that we had defined three independent items, as follows: 


Now, if the data in these three items were to be moved to some 
other location, say to an output record, three MOVE statements 
would have to be used. By combining the three items into a 
record, as shown below, we could move the data in the complete 
group item with just one MOVE statement. 


ea 


ON. 


On your program sheet, write the entries that describe a record 
named ADDRESS, composed of STREET (20 alphanumeric characters) , 
CITY (20 alphabetic characters ), STATE (5 alphabetic characters), 
and ZIP-CODE (5 digits stored in external decimal --- BCD --- 
form, with no sign). 


Potnts to cheek: (1) ADDRESS must have tlevel number 01. 

(2) ADDRESS must not have a picture, since tt ts a group ttem. 
All of the other ttems must have pictures. (3) Do you have a 
pertod at the end of every entry? 
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Combining two or more items to form a record does not affect your 
ability to process each of the items separately; it simply adds 
the capability of processing the whole group as a combined item. 


Also, by combining items, you can sometimes take advantage of the — 
fact that the usage of a group item applies to all items in the 
group. For example, if the usage of a group item is specified as 
being COMPUTATIONAL, then every elementary item in that group is 
taken to be binary -- and there is no need to repeat the usage 
word. Apply this labor-saving fact to the following problem. 


Write the entries needed to define a record named TOTALS, made up 
of MINOR-TOTAL (5 digits), MAJOR-TOTAL (7-digits), and FINAL-TOTAL 
(9 digits). Each elementary item is in packed decimal form, and 
contains a sign. 


The tdea was to write COMPUTATIONAL-3 tn the desertption of the 
group ttem only; however, you might have written COMPUTATIONAL-3 
for each elementary ttem tn the group, tn whitch case you could 
have omitted tt at the 01 level. 


wae Let's suppose that the record description you just wrote appears 
in the Working-Storage section, and you want to specify an initial 
value of zero for each of the three totals. Is the following an 
acceptable way of setting the initial values? If not, why not? 


No, because a VALUE clause is permitted for elementary items only. 
In thts case, a VALUE clause would have to be written in the 
description of each level-02 item. 
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Records in the Working-Storage section are always group items, 
but records in the File section can be elementary items. This 
means that it is possible for a record description in the File 
section to consist of only a level-01 entry; in that case, the 
level-01 entry would contain a level number, a name, and 


a VALUE clause 


\: PICTURE clause 
no descriptive —_ 


a PICTURE clause (Every elementary item description must contain 
a PICTURE clause.) 


Perhaps you will not have many opportunities to define a record 
as an elementary ttem -- but you should be aware that tt can be 
done, itn the File sectton. (The general practtce, as you have 
learned, is to define all of the items that make up a record.) 
One fatrly common sttuatton tn whieh you wtll probably want to 
deftne a record as an elementary ttem ts a job in which trans- 
aetton records are processed against master records, and updated 
master records are written out; the ttems that make up the output 
master record are the same as those that make up the tnput master 
record. 


In thie situation, an tnput master file must be desertbed, 
followed by the tnput master record descriptton, tn which the 
complete record structure would be shown. An output master file 
must also be described, followed by the output master record 
desertption -- but no purpose would be served by duplicating the 
deseriptions of the ttems that constitute a record; so the record 
will be described as an elementary item whose size its equal to 
the total length of the input record. 


Items would then be processed -~ updated -- in the tnput area; 
and the completely updated record moved to the output area by a 
procedural statement such as MOVE MASTER-RECORD OF INPUT-FILE TO 
MASTER-RECORD OF OUTPUT-FILE. 


Write the record description for the output MASTER~RECORD in the 
situation discussed above. The total length of the record is 
250 alphanumeric characters. 
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The final Data diviston entry format ts the "conditton name" : 
entry. This entry closely resembles an ttem desertptton entry, & 
but instead of describing an ttem, its function ts to asstgn a 
name to a particular value of an ttem. You ean think of this 
entry as being a supplement to an item deseription entry; the 
ttem description entry says, tn effect, "An item exists, and 
these are its size, usage, and other charactertstics"; the 
condttton name entry supplements this information by saytng, 

"Here te one spectfte value that might be found in the ttem, and 
a name by whitch we can refer to the condition that extsts when 
the ttem contains that value". 


Reading assignment: CONDITION-NAME 


A condition name is useful only if you know which item it is 
associated with. If you saw the following series of entries in a 
program, you would know that MALFUNCTION is a condition name that 
is associated with [SERVICE-HISTORY] [MACHINE-NUMBER] 
[TYPE-OF-CALL] [PREVENTIVE-MAINTENANCE] [DOWN-TIME]. 


@e0@ 
TYPE-OF-CALL ! 


Condttton name entries are required to follow the elementary ttem 
with which they are assoctated. In this example, two condition 
names are assoctated with TYPE-OF-CALL. 


Again referring to the example in the previous frame, we would 
say that PREVENTIVE-MAINTENANCE is the name of the condition that 
will exist during the execution of the program, whenever the 
value of is : 


TYPE-OF-CALL; 7 
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Condition names are used in IF sentences, and if they are used 
properly, they make the sentences a lot more meaningful to the 
reader. 


Having defined a condition name as shown below, the programmer 
can write a sentence such as: IF HIGHEST-PRIORITY, GO TO 
FILL-ORDER-AT-ONCE. Without the condition name, the programmer 
would have had to write: IF PRIORITY-CODE = 'G‘, GO TO 
FILL-~ORDER-AT-ONCE. 


Condition names are defined in the division, and used in 
the division. 


Data; Procedure 


As he writes the Data diviston, the programmer must try to 
antietpate the need for condition names in the Procedure divtston. 
As a general rule, condition name entries should be written for 
any ttem that wtll assume a limited set of predictable values -- 
for tnstance, a record tdentification code. 


Write the item description entry and condition name entries for 
the following item: a level-02 item named MARITAL-STATUS 
containing a single digit stored in BCD form (usage is DISPLAY); 
if the digit is 0, it signifies that the person is SINGLE; 

1 signifies MARRIED; 2 means DIVORCED; and 3 means WIDOWED. 


Points to check: (1) Make sure that you have five separate 
entrtes, each terminated by a pertod. (2) Every condition name 
entry must begin with level number 88. (3) You could have used 
the ftgurative constant ZERO in place of the literal 0. 
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This lesson has given you some practice tn writing entries for 
tndividual ttems and small groups of ttems. To conclude the 
lesson, take a new program sheet and write the complete record 
desertptton for the record ditagrammed below. 


All items in the SALESMAN group are in BCD (DISPLAY) mode; all 
other items are packed decimal (COMPUTATIONAL-3). Actual values 
are shown for REGION and INDUSTRY -- write condition name entries 
for these values; maximum values are shown for the remaining 
items. Note that the dollar values are not actually punctuated 
with symbols; for these items, the values let you know where the 
assumed decimal points are located. All packed decimal items 
have operational signs. | 


REGION 

A=EASTERN 
B= CENTRAL 
= WESTERN 


SALESMAN 
| | B 
OFFICE-NUMBER 
| | §=©999 
BADGE-NUMBER 
| | 9999, 
INDUSTRY 
YEAR-TO-DATE QUOTA _ : 
3 $ 99,999.99 
| SALES | 
$99,999.99 _ 
| (CURRENT-MONTH 


| SALES-RECORD 


26 = CHEMICALS 
32= UTILITIES 


20=PETROLEUM | 
21= METALS 
COMMISSION 
__ $9,999.99 | 
| | QUOTA ee 
$ 9,999.99 | 
SALES 
$9,999.99 | 
COMMISSION —i(t® 
$ 999,99 


The correct solution for this frame is printed on the next page. 
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Points to check: (1) DISPLAY usage could have been specified for 
the SALESMAN group; however, DISPLAY is assumed when no usage tis 
spectfted. (2) The pieture of REGION can be etther A or X. 

(3) The literals tn the condition name entries for REGION must be 
non-numerte -- enclosed tn quotation marks. (4) If you did not 
write COMPUTATIONAL-3 at the 02 level for YEAR-TO-DATE and 
CURRENT-MONTH, tt would have been necessary to write 
COMPUTATIONAL-3 for every 038 ttem tn those groups; note that it 
ts not sufficertent to write COMPUTATIONAL-3 for YEAR-TO-DATE only, 
since that appltes only to the items in that group -- so 
COMPUTATIONAL-3 must be wrttten for CURRENT-MONTH also. (5) Did 
you remember to use the ptcture character V to show the location 
of assumed decimal points? (6) Beeause QUOTA, SALES, and 
COMMISSION are duplicated names, they will have to be qualified 
when they are used in the Procedure diviston; for instance, 

SALES IN YEAR-jTO-DATE and SALES IN CURRENT-MONTH. 
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LESSON 5 


The Procedure division ts the most loosely structured of the four 
divtstons. The dtvtston header is the only fixed entry that you 
are requtred to use tn every program -- and from that potnt on, 
you're on your own to construct whatever paragraphs you need and 
to arrange them in any sequence that does the job. 


We will begin this lesson with a quiek look at the overall format 
of the dtviston. 


Reading assignment: PROCEDURE DIVISION 


The Procedure division is required to contain at least 


one paragraph 
two paragraphs 


one paragraph 


The names of paragraphs (procedure names) are 


reserved words 
programmer-supplied names 


programmer-supplied names 


Suppose that we have a very simple program that contains only one 
paragraph in the Procedure division. Must that paragraph have a 
name? 


Yes 
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1420 How many sentences must each, paragraph contain? 


One or more 


What is the difference between a sentence and a statement? 


A sentence is an entry; therefore, it must be terminated by a 
period. A statement specifies an action to be taken, and is found 
within a sentence. Each sentence contains at least one statement, 
but it may contain more than one. 


In the sample paragraph below, pick out the sentences and the 
statements. 


po hove seafees-{ro-donrabcaea—t 
BEST EARE RAST 


statements sentences 


MOVE ZEROS TO CONTROL-TOTAL. 
ACCEPT PAGE-NUMBER, 
MOVE PAGE NUMBER TO NUMBER IN HEADING—~1. 


MOVE SPACE TO Sree ees 


In most cases, tt does not matter how many statements are written 
tn a sentence. All four of the statements above might have been 
combined tnto one sentence, since that would have satisfied the 
requtrement for at least one sentence per paragraph. (Another 
way of stating this rule ts that every paragraph must end ina 
pertod.) On the other hand, the statements might have been 
written as four separate sentences -- a method preferred by many 
programmers because it stmplifies the insertton and deletion of 
statements. 
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145. Each type of statement has a specifie format. The remaining 
pages of the reference handbook give the formats of the most 
commonly used statements. In this lesson, and in the lessons that 
follow, you will study all of the formats given tn the reference 
handbook. 


In the handbook, the vartous verbs are arranged in alphabetteal 
order. Some verbs have more than one format, and are presented 
on more than one page; for tnstance, ADD (1) and ADD (2). The 
reading assignment will spectfy exactly which format you are to 
study. 


You will not study the statements in alphabetical order. Instead, 
as you work on a programming problem, you will be asstgned to 
study only the statements that apply to the problem. And your 
work will tnvolve all four divisions, rather than just the 
Procedure divtston -- so that you will get a good tdea of the 
relationship of procedural statements to the descripttons of 

data ttems and ftles, assignments of tnput-output devices, and 

80 On. 


None of the procedural words should come as surprises. You were 
tntroduced to them all in the prevtous course. But don't make 
the mtstake of thinking that this time you must memorize all of 
the details about each entry -- just try to ptek up only as much 
tnformatton as you need to write the required entrtes for the 
problem that you are worktng on. 


The amount of practice that you will get with each verb will be 
quite ltmited. There are litterally hundreds of ways in which 
most statements can be used; tf we explored every one of them, 
thts course would never end! So, you will get practice tin using 
the statements tn one or two typteal ways, tn stmple problems. 


eee 


| BRYS Let's start with a really simple problem, involving three state- 

: ments. Thts problem doesn't represent a practical computer 
applteatton; on the contrary, tt ts just about the simplest 
procedure tmagtnable. 


The problem ts to print the data punched itn a single card. The 
steps tn the procedure are (1) to obtain the data from an input 
device, (2) to transfer the data to an output device, and (3) to 
stop the run. Because only one card ts tnvolved, we will treat 
tt as low-volume input, not as an input file; likewtse, only one 
line ts to be printed, so we will treat tt as low-volume output, 
rather than as an output file. The input-output verbs we will 
use, therefore, are ACCEPT and DISPLAY, rather than READ and 
WRITE, 
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ACCEPT and DISPLAY -- and STOP, also -- have more than one format. 


You are to read about only the first format of each of these verbs 


at this time. 


Reading assignment: ACCEPT (1) 
DISPLAY (1) 
STOP (1) 


BZTY An ACCEPT statement obtains up to 80 characters of data, and 
moves them into a working-storage area. Suppose that, for our 
problem, an 80-character item named CARD-DATA has already been 
defined. Which of the entries below is the correct way to get 
the data from our card into CARD-DATA? 


ACCEPT CARD-DATA. 


BET Now that we have the card's data in working storage, we want to 
DISPLAY the data. In order to display the data, 


we need only to write DISPLAY CARD-DATA 


ie must first move it from CARD-DATA to an output area 
we need to convert the data to DISPLAY usage 


we need only to write DISPLAY CARD-DATA 


BR our last step is to terminate the execution of the program. The 


statement that we must write to accomplish this is ° 
eee 
STOP RUN 
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| 
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Let's now write the complete COBOL program -- not just the 
Procedure dtviston -- for this problem. This will give you an 
opportunity to tte together information that you studied in 
prevtous lessons. Feel free to refer to any part of the reference 
handbook. 


Take a new program sheet, and write the Identification division. 
Make only the required entries for the division. The name of our 
program is ONECARD. 


Next, the Environment division. In this division, the Configu- 
ration section is always required, while the Input-Output section 
is optional. 


For our problem, the Input-Output Section a be ie 
because : must be omitted 


must be omitted, because there are no input or output files 


Write the Environment division of our program. Enter just 
IBM-360 in the Source-Computer and Object-Computer paragraphs, 
omitting the model numbers. 
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BEZY In the Data division, we must define the item we called CARD-DATA. 
To do this, we need [a File section] [a Working-Storage section]. 


ONLY a Working-Storage section 


We must omit the File sectton because we have no tnput or output 
files. 


We must describe CARD-DATA as an 80-character a shia: 
re 


ee0e 
independent item 


Items tn working storage are defined as records only tf they are 
subdivtded tnto smaller ttems. 


Write the Data division of the program. CARD-DATA is to 
accommodate 80 alphanumeric characters. 


DATA! DIVIISION. 


WORKUNG-STORIAGE |SEGTIION. 


(3/66) 62 


System/360 COBOL Writing Programs in COBOL 


Ya Finally, write the Procedure division. To refresh your memory, 
here is a procedure flowchart for our little program. 


ACCEPT 


STOP RUN 


Did you remember that a paragraph name is required? If you 
forgot, correct your work. The name does not have to be PROCESS- 
DATA, of course. 
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GER Our second problem its a slight modification of the first one. 
Instead of merely printing out the data in a ecard, in this problem 2 
we will insert spaces between the fields on the output line. 
Let's suppose that the card looks ltke this: 


| 
2222229 2222229 22 2§ 2 222 222222 2)222222222222222222222222222222222222222222222222222 | 
9333333333333 3 3333339 3 31339 3 3 3)333333333333333333333333333333333333333333333333333 


SAAGAB GAGA GAGA AAA AAA AAAAGAA AAAS AGAGAGAAAAAAGAGAAAGEAAAAAAAGAGAGAGAAAAAA G44 G4 


300 oo oo 5 oo ogo ooo 0 5 oo 5 5 O15 555 5 555 5 5555655555555 555555558855 55 5555555555 5555555555 

GBEGEECEEGEM EEC CC COGH ECC CECE MGG6FCEEE CEG CEGEGEE EEE SE GE6E6SEESEEG666GGESEGGEGE6GG6E6ESEE6 

TTT TTT TTT Tg 0990707 7090700009790900707799+0077 | 
SSEHFSECSGKEKKHSEKKKF SS BSS EER SSKEKSSEEEKEFESEFFKKLITRRESKKKKISFFESEKEEEKEFKKEEEREEEESB 

399999999 SSISPIFIGPIIIMIITIG YS IIIGGTIIGITTIIIGIIIIIIITIITIIIIIIIIIT ITS 


9 
10 111 20 21 22 23124 25 26 27 8 2980 31 2? 33 34 35 36 37 38:39 40 41 47 42 44 45 46 47 48.49 50 51 52 53 54 5° 56 57 58 59° 61 62 63 64 65 66 67 68 69 70 


Our first program would have printed a solid line of characters: 


S7AB942GO006512919BRE3879013167 


This time we will leave five spaces between fields: 
87A8B942G0065129 19BRE6379 013167 


BR rhe logic of this job is significantly different from the Logic 
of the ftrst job. Before, a single area tn working storage 
served for both tnput and output. Now, we will set up two areas, 
and move the data ttems from one area to the other. 


VEHICLE LICENSE | EXPIRATION 


Before, we treated the data as a stngle (independent) item. Now, 
we will treat tt as a record, subdivided into three smaller titems. 
ee0e | 
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The Identification and Environment divistons that you wrote for 
the first problem are suitable for the second problem, but we 
will need different Data and Procedure divisions. We will define 
our data items first. 


On a fresh program sheet, write the division and section headers 
for the Data division. (As before, we will use only the 
Working-Storage section.) Then, write the record description for 
the input record. Name the record CARD-DATA. Look back at the 
preceding frames to see the card format. 


Note that we will define only the first 29 positions of the card, 
and ignore the blank positions (30-80). We are able to do this 
because the ACCEPT statement lets us obtain only as many 
characters as we want, beginning with postition 1 (up to a maximum 
of 80 characters). 


Next, write the record description of the output record. Name 
the record OUTPUT-LINE. Name the three items that will receive 
data AREA1, AREA2, and AREA3. Be sure to define filler areas 
between the data areas, and to assign initial values to the 
filler (each filler area is to contain 5 spaces). 
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162 | The logic of our procedure will be to accept the input record, 
then to move data from the input record to the output record, 
then to display the output record, and finally to stop the run. 
Which one of the ACCEPT statements below will properly handle the 
first step of the procedure? 


ACCEPT CARD-DATA. 


Only one data name can be written tn an ACCEPT statement, so tt 
must be the name of the record as a whole. 


Which DISPLAY statement is the correct one for our problem? 


DISPLAY OUTPUT-LINE. 


This statement will cause the entire output record to be displayed, 
tneluding the spaces between data characters. The first choice, 
above, ts a legttimate DISPLAY statement -- but tt would cause 

the three data ttems to be dtsplayed wtth no spaces between them; 
thereby undoing our careful insertion of filler ttems into the 
record. The second DISPLAY statement ts illegal, because the 

word FILLER cannot be used in procedural statements. 


oe. 
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The ACCEPT and DISPLAY statements are just as simple for thts 
problem as they were for the first problem. Before we display 
the output line, though, we wtll have to move the tnput data to 
the output area. | 


Reading assignment: MOVE 


Which sentence is correct for our problem? 


eee 
MOVE VEHICLE TO AREAI; 
MOVE LICENSE TO AREA2; 
MOVE EXPIRATION TO AREA3. 
The second sentence ts tneorrect for a couple of reasons. For 


one, tt trtes to move data from a group ttem (CARD-DATA) to an 
elementary numeric ttem (AREAS), which ts a violation of the 
rules; tf you tried to do thts tn a program, the compiler would 
detect your error and tssue a dtagnostte message informing you of 
your goof. But suppose that the picture of AREA3 had been X(6) 
tnstead of 9(6); now the MOVE statement would be legal, but tt 
would not gtve the desired result. It would cause the same data 
to be moved to each of the receiving ttems, as dtagrammed here: 


37A8B942G006512919BR6379013167 


7 


3748942G0065129|  |37as9g2c] —|-374894 


The third sentence specifies a group ttem as the recetving ttem, 
whieh ts permissible, but which causes the boundaries of 
elementary items wtthin the group to be tgnored. The result 
would be: 


374 8942C60065129BR6379013167 
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complete Procedure division for the second 


It ts often very destrable to wrtte comments within a program to 
explain what the program ts supposed to do. You have seen that a 
Remarks paragraph may be tneluded in the Identification division, 
allowing you to explain the purpose of the program. Wo remarks 
are permitted tn the Envtronment and Data division. In the 


‘Procedure division, you may make any number of NOTE entries, to 


explain the processing that ts being done. 


Reading assignment: NOTE (1) 
NOTE (2) 


Using the same program sheet on which you 
wrote the Data division, now write the "Cano 


problem. Begin the division with a NOTE 
paragraph that briefly explains the 
procedure. Then write the procedural 
statements that correspond to the flow- 
chart at the right. 
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The third problem of this lesson calls for you to write a short 
program on your own. The problem tnvolves accepting, moving, and 
displaying a few characters of data. This time, though, the input 
will come from the eonsole keyboard, rather than from a eard; and 
the output ts to be punched tnto a ecard, rather than printed. 
Before you start on the problem, study the sltghtly dtfferent 
formats of ACCEPT and DISPLAY which you wtll use in your program. 


Reading assignment: ACCEPT (2) 
DISPLAY (3) 


Here is the problem: A console operator will type 15 characters, 
which may be both letters and digits, on the console keyboard. 
The first 10 of those characters are to be punched into columns 
25-34 of a card; the remaining 5 characters are to be punched 
into columns 1-5 of the same card. Only one card is to be 
punched; then the run is to be stopped. 


Write the Data and Procedure divisions for this problem. 
(The Identification and Environment divisions required for this 
problem are the same as those you wrote for the first problem.) 


Invent your own names for data items and procedures. 


4 P 3 4 
y £ 3 4 
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LESSON 6 


Most computer problems involve more operations than the problems 


you worked in Lesson 5. To begin wtth, most problems involve 
tteratton or "Looping" -- in whitch a series of steps ts executed 
over and over until the result ts obtatned or until the end of a 
file ts reached. Logtieal decisions must be made to determine 
when to exit from the loop. Also, most problems involve at least 
a small amount of artthmetic. 


In this lesson, you will study the arithmetic verbs, as well as 
sequence control words - IF, GO TO, and PERFORM. As tn the last 
Lesson, you will read about these statements when they are needed 
for a problem. Needless to say, you may also be called upon to 
write statements which you studted in the last lesson. 


Throughout this lesson, we will program just one problem, although 
we will twist tt around a btt and add things to tt as we go atong. 
Here ts the baste problem: Given two numbers, the ftrst smaller 
than the second, we want to get the sum of all the whole numbers 
between the first number and the second number, inclustve. 

For example, tf the numbers are 45 and 52, we want to know what 

45 + 46 + 47 + 48 + 49 + 50 + 51 + 52 equals. To make the problem 
as straightforward as posstble, we wtll say that both numbers 

must be unsigned (therefore regarded as positive). The numbers 

are to be entered by way of the console, and the sum ts to be 
typed out on the console printer. 


Let's develop a posstble solution for this problem. We wtll get 
the two numbers into storage by using an ACCEPT FROM CONSOLE 
statement. Now we have to develop the sum. We ean do that by 
defining a work area with an tnittal value of sero, and adding 
the smaller number tnto the area; after that, we can repeatedly 
tnerease the smaller number by 1, and repeatedly add tit to the 
total, unttl the smaller number is equal to the larger number. 
At this point, we have the sum we wanted; we can display tt upon 
the console, and stop the run. 


7| 


System/360 COBOL Writing Programs in COBOL 


ERAN This flowchart will help you to visualize the procedure. 
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ACCEPT 
NUMBERS 


CONSOLE 


AOD 
SMALLER 


SMALLER > STOTAL, 
gaa 


CON: SOLE 


TO SMALLER STOP RUN 
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> 
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Of course, thts ts not the only posstble solution to this 
problem, anda little later in thts lesson, we will look at 
another, somewhat dtfferent, solution. For the time betng, 
though, let's stick wtth thts procedure, and write the COBOL 
entries for tt. 


Before you proceed to the next frame, take a minute to satisfy 
yourself that this procedure really will do the job. Take any 
pair of numbers, the simpler the better, say 2 and 5; then go 
through the procedure step by step, to see how the total of 

2+ 3 + 4+ 5 is developed. Remember that the initial value of 
the total is zero. 


Some new procedural words and formats are tnvolved in this 
problem. 


Reading assignment: ADD (1) 
IF (1) 
IF (2) 
TEST CONDITIONS 
GO TO 
DISPLAY (2) 
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As with our previous problems, the first step is to define the 
data items in the Data division. On a program sheet, write the 
necessary division and section headers, and then write the 
descriptions of: 


(1) the work area in which the sum will be developed, 
named TOTAL, 8 digits in length; initial value is zero. 


(2) the input record, named NUMBERS; subdivided into 
SMALLER and LARGER, each 4 digits in length. 


Next, begin the Procedure division. Write the division header. 
Name the first paragraph OBTAIN-DATA, and in it write the entry 
required to accept the input numbers from the console. 


The console operator will have been instructed to type two four- 
digit numbers, with no spaces, and with the smaller number first. 
So, if the input values are 45 and 52, the operator will type 
00450052. 
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Wee At this point, we must start a new paragraph, because we want to 
be able to branch to the following statement. (Refer to the 
flowchart of the solution in an earlier frame.) 


Name the new paragraph COMPUTE-SUM; then write the first entry of 
the paragraph -- to add SMALLER to TOTAL. 


iva: Now write the IF sentence to display the total and stop the run, 
if SMALLER is equal to LARGER. 


Finally, write the statements to add 1 to SMALLER, and to branch 
back to the beginning of this paragraph. These will complete 
the program. 


___ igo Tlo colmputie-suM. 


ee ge 


en aa lin a 
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Since the format of IF sentences is fairly flexible, the decision 
in this procedure might have been programmed in several different 
ways. Consider the three ways written below. For each one, figure 
out whether or not it would be correct for our problem. 


It will probably help you to refer to the flowehart of the job 
(in an earlier frame). If you are not certain how to go about 
evaluating IF sentences, tt might be helpful to re-read the 
sectton on FLOW OF CONTROL in the reference handbook for the 
previous course. 


All three of these ways of using the IF statement would get our 
job done correctly. 
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Our first solution to the "sum-of-all-integers-between-two- 
numbers" problem ts not exactly the most efftctent way of going 
about tt. If the numbers happened to be 0000 and 9999, we would 
add to the total 10,000 times, add 1 to the smaller number 9,999 
times, and test whether the numbers were equal 10,000 times! 


There ts an easter way. If we knew (1) how many numbers are tn 
the series, and (2) the average value of the numbers; we could 
simply multiply the number of numbers by the average, and that 
would gtve us the total! For tnstance, suppose that the numbers 
are 1 and 5; there are ftve numbers and their average value ts 3. 
Multtplytng & times 3 gtves 15, whitch ts equal to1+2+3 + 4 
+ 5, 


This method works for whatever numbers happen to be the tnput. 

If the tnput numbers are 45 and 52, we ean find out the number 

of numbers in the sertes by subtracting the smaller number from 
the larger, and adding 1; 52 - 45 + 1= 8. We ean get the average 
value by adding the two numbers and dividing their sum by 2; 

(45 + 52) / 2 = 48.5. (Note that we have to allow for one 

decimal place in the average, in the event that the sum of the 

two numbers ts odd.) Now we can get the sum of all numbers in 

the sertes; 8 x 48.5 = 388, 


A ltttle later in this lesson, you will be writting the COBOL 
artthmette statements to obtain the destred result by this method, 
so take a moment to study the outline below. Make certain that 
you understand what operattons are to be performed, and what 
intermediate results are to be obtained. 


A. To calculate the number of numbers in the series -- 
1. Subtract the smaller number from the larger, to get 
the difference; 
2. Add 1 to the difference, to get the number of numbers. 


B. To ecaleulate the average value of the numbers in the series -- 
1. Add the smaller and the larger numbers, to get a 
temporary sum; 
2. Divtde the temporary sum by 2, to get the average. 
C. To ecaleulate the total (the sum of all numbers between 


two numbers) -- 
lie Multtply the number of numbers by the average. 


This program | Wit 


will ont involve a "loop", as the previous program 
did. 


will not 
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The problem, as you can see, requires all four arithmetic 
operattons -- additton, subtraction, multtplication, and diviston. 
Study the formats of the arithmette verbs, and deetde which 
formats you would use for the steps of calculating the total. 

Pay particular attention to the fact that there are two formats 
for each verb; in each ease, the second format contains the word 
GIVING. Learn the difference between arithmetic statements wtth 
and without the GIVING clause. 


Reading assignment: ADD (2) 
DIVIDE (1) 
DIVIDE (2) 
MULTIPLY (1) 
MULTIPLY (2) 
SUBTRACT (1) 
SUBTRACT (2) 


Now take a COBOL program sheet, and write the entries needed to 
calculate the TOTAL by the method outlined in an earlier frame. 
Assume that the input area is called NUMBERS, and contains 
SMALLER and LARGER, each four digits long. The output item is 
named TOTAL. These items are already defined. 


Take it from this point. Supply the statements that would fit 
between ACCEPT NUMBERS FROM CONSOLE and DISPLAY TOTAL UPON 
CONSOLE in the program. Define whatever working storage items 
you need to calculate intermediate results. One restraint: 

write your calculations in such a way that the original values of 
SMALLER and LARGER are not changed. 
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185 _ The statements for calculating the total may have been written in 
several dtfferent ways. Even though your work ts not exactly ltke 
the answer printed in the preceding frame, the printed answer 
should help you tn checking your own work. Also, make certain 
that you understand every entry tin the printed answer. 


Potnts to check tn your work: (1) Are your data ttems large 
enough? The ttem that wtll hold the number of numbers must be 
five digits long to allow for the extreme case tn which the 
numbers are 0000 and 9999. The "temporary sum" item must also be 
five dtgtts, to hold the sum of a patr of numbers such as 5000 
and 6000. The average must be able to contain five digits, 
tneluding one dectmal. The ttems eould be larger than this, but 
must not be smaller. 


(2) It ts permtsstble for ttemse to do "double duty". For instance, 
the ~tem named INTEGERS in the printed answer could have been 

used to hold both the difference between the itnput numbers, and 
the total number of numbers. If tt were used in that way, the 
following procedural entries would be used: 


You mtght also have used AVERAGE for both the temporary sum and 


the average value of the numbers, provided that tts picture were 
9(5)V9. These procedural entries could then be used: 


Statements like these are correct COBOL, but sometimes seem like 
double-talk to a reader. 


(3) Above all, make sure that you have adhered closely to the 
formats gtven tn the reference handbook. Beginners sometimes get 
the mtstaken tmpresston that they can make up any formats they 
please, just as long as they use reserved words, and come up with 
tnecorrect statements like DIVIDE A BY B (should be DIVIDE B INTO 
A), or MULTIPLY A TIMES B (should be MULTIPLY A BY B). 
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The little sertes of statements which you have written to 
ecaleulate the total can be thought of as a subroutine. I'll 
grant you that the title "subroutine" ts a bit pretenttous tn 
thts tnstance -- but the tdea that you could treat these state- 
ments as a subroutine ts an tmportant one. 


The tdea goes ltke this: A program can be thought of as a set of 
subroutines. Each subroutine (some people prefer to say "program 
module") ts a sertes of statements that produce a certain result. 
Onee a subroutine has been written, tt can be "plugged into" 
other programs where the same result ts desired. 


In COBOL, tt ts espeectally easy to "plug in" subroutines. We use 
the verb PERFORM. 


Reading assignment: PERFORM (1) 
PERFORM (2) 


What must we do in order to use our total-calculation entries as 
a subroutine? First, we must change our work from just "a series 
of entries" into a "procedure". We do that simply by adding a 
paragraph name at the start of our entries, like this: 


Second, we must insert our procedure into a program -- and here 
we have a choice of two ways. One way would simply be to copy 
the procedure at the appropriate point or points in the program. 
Another way is to add the procedure to the end of the program, 
and PERFORM the procedure at the appropriate point or points. 


What statement would you write in order to PERFORM this 
procedure? 
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Although you wtll find many uses for the basic artthmette verbs 
(ADD, SUBTRACT, MULTIPLY, and DIVIDE) you may prefer to use the 
all-purpose arithmettie verb, COMPUTE, much of the time. Among 
the advantages of ustng COMPUTE are that you can spectfy more 
than one operatton in a statement, and that you do not have to 
define tntermedtate work areas. 


Reading assignment: COMPUTE 
ARITHMETIC EXPRESSIONS 


189° Two COMPUTE statements can serve the same purpose as the five 
arithmetic statements you wrote earlier. First, write the 
COMPUTE statement to find the AVERAGE of the two input numbers, 
SMALLER and LARGER. (Your earlier data descriptions of these 
items are just as appropriate for COMPUTE as for the other 
arithmetic verbs.) 


CSIMALLIER + LARGER) 


Points to check: (1) Parentheses are necessary to cause the 
additton to be done before the diviston. If the parentheses were 
omitted tin the solution above, the result would be equal to the 
SMALLER plus one-half of the LARGER. (2) Did you leave spaces 
before and after the equal stgn, the plus stgn, and the dtvided- 
by stgn? 


ERY Next, write a statement that computes the TOTAL. This statement 
should subtract the SMALLER from the LARGER, and add 1, to get 
the number of numbers in the series, and then multiply that by 
the AVERAGE. 


As before, the parentheses are absolutely necessary, in order to 
control the order in which operattons occur. 
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F191 From this small amount of practice with arithmetic statements, 
you can see that they are not at all difficult. Instead of 
spending more time with arithmatic, then, let's turn to some 
other topics that are related to our problem. 


Up to now, the input has consisted of just one pair of numbers. 
Now, we want to process more than’ one patr of numbers. This tis 
simple enough - we wtll ACCEPT a pair of numbers from the 
console, COMPUTE the total, DISPLAY the total upon the console, 
and then GO TO the beginning of the procedure to accept another 
patr of numbers. 


Needless to say, we must provide a way of getting out of this 
loop. To do this, we will tell the operator to type 99999999 
when he ite finished, and in our procedure we will test to see if 
the firet number, SMALLER, is equal to 9999; tf tt te, we will 
stop the run. Our new procedure looks like thie: 


ACCEPT 
NUMBERS 


FROM 
CONSOLE 


STOP RUN 


On a program sheet, write the statement to stop the run if 
SMALLER equals 9999. 
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F193 | Another way of accomplishing the same end is by using a condition 
name. Suppose that the input area had been described in this 
way: 


(3/66) 


This gives us a name, FINISHED, for the condition that exists 
when the value of SMALLER is 9999. On your program sheet, write 
an entry, using this condition name, which will have the same 
effect as the last previous entry you have written. 


Here ts another aspect of our problem: Our solution assumes that 
the first number ts the smaller one. If the operator were to 
make the mtstake of typing the larger number first, we would get 
the wrong result. To keep this from happening, we should check 
the tnput to make sure that SMALLER tis really smaller than 
LARGER. 


If SMALLER ts not smaller, then what? Well, one possibility ts 
to stop the executton of the program temporarily, and type a 
message to the operator telling him what tis wrong. 


Reading assignment: STOP (2) 
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The check on the valtdity of the input, and a stop when the data 
was not valid, could be worked into the program like this: 


ACCEPT 
NUMBERS 
FROM 
\ CONSOLE 
YES 
<a, STOP RUN 


NO 


SMALLER NO STOP 
SERRGER INVALID DATA 


YES 


COMPUTE 
TOTAL 


DISPLAY 
TOTAL 


UPON 
CONSOLE 


Write the entry that is represented by the blocks circled in the 
flowchart. The message we want to display before halting the 
program is: 


TYPE SMALLER NUMBER FIRST 


The flowchart indicates that when execution of the program is 
resumed, we want to branch back to the beginning of the procedure, 
which is named GET-INPUT. 
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ERY rhe "sTop-literal" way of handling the invalid data situation 
provided the occasion for introducing you to the second format of 
the STOP verb -- but unfortunately, tt demonstrated a poor 
programming practice. It would not be wise to delay the executton 
of a@ program in any sttuation that could be handled by the 
computer itself. This ts certainly a sttuatton that the computer 
can be programmed to take care of; in the event that SMALLER ts 
actually the larger number, we can move the value of SMALLER tnto 
LARGER, and move the value of LARGER tnto SMALLER. 


SWITCH 
SMALLER YES VALUES 
>LARGER OF SMALLER 


Switching the numbers requires not two, but three moves -- to 
avoid destroying one of the values in the process. And tit 
requires a work area to hold one of the values temporarily. The 
three moves are sketched below. 


STORE 


SMALLER LARGER 


On a program sheet, write (1) the Data division entry that 
describes the item called STORE (this item must hold four digits); 
and (2) the Procedure division entry that switches the values of 
SMALLER and LARGER, if the original value of SMALLER is greater 
than LARGER. 


Data division entry: 
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Yet another approach to the difficulty of invalid input is to try 
to prevent it by displaying clear-cut instructions to the 
operator at the beginning of the run. The message might be: 


TYPE TWO 4-DIGIT NUMBERS AS A STRING OF 8 DIGITS. NO SPACES. 
SMALLER NUMBER MUST BE FIRST. TO STOP RUN, TYPE 99999999, 


Which is correct: 


The DISPLAY verb cannot be used, because the message is too 
long. 
Alphanumeric messages such as this one cannot be displayed. 
Two DISPLAY statements can be used for the message, one 
for each line. 
The message is illegal because it contains reserved words. 


Two DISPLAY statements can be used for the message, one for 
each line. 


Write the two statements to display the message in the preceding 
frame. Treat each line of the message as a separate non-numeric 
literal. (You will find that both literals are too long to be 
written on a single line of a program sheet. If you have forgotten 
how to continue non-numeric literals, refer to the PROGRAM SHEET 
FORMAT AND RULES section of the reference handbook.) 


SEQUENCE - 
7 we 
(pase) SERIAL 20 24 28 3 44 52 56 60 64 68 72 


CPPCEL TTT en eehnr tive net lt bie ne B ms S| A sirmiel Ort ol al Gini. Wo 
SEE ARE= HEEROERE re phlceat TP Upoht Ronse TT rT EERE ES 

GRRE R EER biseh at Temek LEM reneet cibesl wel let male (alt oho plult hieet afl 
COOP TTT! Toloislal.|'/ lublot Iconlsovel. TTT TOT Po re 


I suppose that we could go on forever, thinking up variations on 
this baste problem. But tt has already served its purpose as a 
vehtecle for learning to use several tmportant COBOL statements. 
Obvtously, you have not learned everything there is to know about 
every verb you have studted, but remember that our objective was 
to see how vartous statements are used tn procedures -- not to 
study all of the "tfs, ands, and buts" of every statement. 
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LESSON 7 


BIye © have saved an important set of procedural verbs for last: the 
input-output verbs used for files of data -- OPEN, READ, WRITE, 
and CLOSE. Although these verbs are more simple to use than, say, 
the arithmetic verbs, the verbs themselves are only one part of 
the total requtrement for processing files. The requtrement 
tnvolves: 


A. Environment dtvtston entries -- 
dg an Input-Output sectton, containing at least a 
Frle-Control paragraph, and somettmes an I-0-Control 
paragraph. 


ae a@ SELECT entry for each ftle, to assign the ftle to 
an tnput-output device (SELECT entries are made in 
the Ftle-Control paragraph). 
B. Data dtviston entries -- 


Tz a File sectton. 


2. a file descriptton (FD) entry for each file. 


3. a record description of each record ina file, 
followtng the FD entry for the file. 
oF Procedure divtston entries -- 
i; an OPEN statement to make a file ready for reading 


or writting. 


2. a READ statement to obtatn a record for processing, 
or a WRITE statement to release an output record. 


3. a CLOSE statement to terminate the processing of a file. 


You have already written the Environment and Data division entries 
tm earlter lessons; tn this lesson, you will combine them with 

the Procedure dtvtston entries to produce two complete programs 
for processing files. 


Both of the problems you wtll work on stress the input and output 
operations; for the sake of clarity and simpltcity, no arithmetic 
operattons and very few sequence control operations have been 
used. The first problem ts a ecard-to-tape job -- a file of 
punched cards is to be written on tape. The second problem tis a 
tape-to-print job -- the records itn a tape file are to be 

litsted on continuous-form paper. 
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Oe This is a system flowchart of the card-to-tape job. 


JOB = CARDTAPE 
SYSTEM = IBM-360, 
MODEL 30,64K 
(ees SYSTEM WILL 


INPUT FILE = CARD-FILE 
EXTERNAL NAME = CARDS 
DEVICE =2501 

CARD READER 


OUTPUT FILE = TAPE-FILE 
EXTERNAL NAME = TAPE 
DEVICE s2400- SERIES 

COMPILE AND MAGNETIC TAPE UNIT 


EXECUTE PROGRAM 


The flowchart provides the information that you need in order to 
complete the Identification and Environment divisions. Take a 
new COBOL program sheet, and write these two divisions. 


For this problem, limit the Identification division to the | = 
required entries only. The program name is CARDTAPE. In the. 
Environment division, write both the Configuration section and 

the Input-Output section; omit the I-O-Control paragraph of the 
Input-Output section. 


You may, of course, refer to the secttons in your reference hand- 
book that deal wtth IDENTIFICATION DIVISION ENTRY FORMATS and 
ENVIRONMENT DIVISION ENTRY FORMATS. 
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BPX Here are some additional specifications about this job, which you 
need to write the Data division: 


There is only one type of record, named CARD-RECORD, 
in the input file; each CARD-RECORD contains 80 
alphanumeric characters. The data from each card is 
to be moved to the output record, named TAPE-RECORD. 
Output records are to be written in the output file 

in blocks of 25 records. The output is to be recorded 
in mode F, with standard label records. 


In this job, we don't intend to process any of the items within 
the records. Define the input record as an 80-character 
elementary item, and define the output record in the same way. 


Take another program sheet to write the Data division. For entry 
formats, consult your reference handbook under DATA DIVISION 
ENTRY FORMATS. 


Potnts to check: (1) For punched card files, the recording mode 
ts always F, and label records are always omitted. (2) The 
desertiptton of a record (0O1l-entry) must follow the FD entry for 
the file that econtatns that record. 
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PIE] this procedure flowchart shows how the files will be processed. 


OPEN 
CARD-FILE 
ANO 
TAPE-FILE 


CLOSE 
AT END YES | 
OF FILE aa aa STOP RUN 
? TAPE-FILE 
MOVE 
CARD-RECORD | 
TO 
TAPE - RECORD 
WRITE 
TAPE- 
RECORD 


Nottce, espectally, that the files are opened at the beginning of 
the run, and closed at the end of the run. 


Reading assignment: OPEN (1) 
OPEN (2) 
OPEN (3) 
CLOSE 


Begin the Procedure division on the program sheet on which you 
wrote the Data division. Name the first procedure OPEN-FILES, 
and in it write the entry or entries to open both files. 


It ts also correct to write two OPEN statements. 
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The READ entry does double-duty. It not only makes a record 
avatlable from an tnput file, but also determines when the end 
of the ftle has been reached (that ts, when all of the data 
records have been read); on an end-of-file condition, tit causes 
other statements written in the entry to be aeted on. The blocks 
printed below represent the operations that will be done by 
statements and clauses in the READ entry of our program. 


CLOSE 
CARD-FILE 


STOP RUN 


AND 
TAPE-FILE 


Reading assignment: READ 


Now, start a new procedure in the Procedure division; name it 
READ-A-CARD. Write the READ entry that corresponds to the blocks 
printed in the preceding frame. 


HERED REG SEE 
pee eee 


CL Lose e rape tive eamp-Fike; | — 
stop RuW. 


Points to check: (1) Make sure that you wrote READ CARD-FILE, 
not READ CARD-RECORD. (2) The commas and semicolons printed in 
the answer above are not requtred, but the complete READ entry 
must be ended by a pertod -- the CLOSE and STOP statements must 
be part of the READ entry, not separate entries. 
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Pid We are now at the point in the procedure where the input data te 
to be moved into the output record and a record ts to be written. 


Reading assignment: WRITE (1) 


yea Complete the procedure named READ-A-CARD, by writing entries to: 


Lis move data into the output record. 
2. write the output record. 
3% branch back to the beginning of this procedure. 


Points to cheek: (1) The WRITE entry must speetfy TAPE-RECORD, 
not TAPE-FILE; tn COBOL, we read a file, but we write a hecond, 
(2) The three entries above might have been written as three 
statements in one sentence; tt ts not necessary for the WRITE 
statement to be a separate entry. 


The card-to-tape program ts now complete. Before we turn to the 
next problem, let's take a minute or two to look back over this 
program, Here are a couple of points that should be emphasized: 


First, tt was necessary to split the Procedure divtsion into two 
procedures (paragraphs). Thts made it posstble to braneh back to 
the READ statement. It would have been an error to branch to the 
beginning of the first procedure, since you cannot open a file 
that ts already open. Note that the first procedure must be 
given a name, even though tt ts executed only at the start of the | 
program, and we never branch back to tit; there must be a header 

entry for every paragraph. 


Second, note particularly that tt was not necessary to "assemble" ! 
a block of 25 records prior to writing. This is because a WRITE 

entry does not cause data to be written on the tape; instead tit 

releases records, which are then handled by an input-output 

control program (part of the operating system). The control 

program takes care of filling up a block. Each block is filled 

with the number of records you specified in the FD entry for the 

file. The actual transfer of data to an output device occurs when 


{ 
| 
a block te full, or when the file ts elosed; the COBOL programmer @ 
doesn't have to worry about tt. 
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Our second problem of this lesson ts a tape-to-print job. The 
tnput ts a file of records on magnetic tape, and the output is a 
listing of those records. One recowd ts to be printed on each 
line of the output form, until the bottom margin or "overflow 
line" of the form has been reached; at that point, we want to 
sktp to the first printing line of the next form, and go on 
printing line after line. 


Each line that tse printed ts a record, so the output consists of 
a sertes of related records. Hence, the output, like the input, 
ts a data file. Perhaps you, like so many other people, are not 
accustomed to thinking of printed reports in these terms; however, 
when you use COBOL, you must learn to think of your tnput and 
output as betng made up of records within files. (The only 
exception ts the low-volume input and output which you accept and 
dtsplay.) For thts problem, the complete printed report is a 
frle, and each line of the report ts a record. 


The logte of thts program, then, ts basically the same as that of 
the last program. There ts one tnput ftle and one output file. 
These ftles must be opened at the begtnning and closed at the 
end. Each ttme tnput ts read, tt is moved to form an output 
record, which ts then written. 


Here ts a procedure flowchart of the job. Observe the stmilarities 
between tt and the flowchart of the previous job. 


STOP RUN 
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The matin dtfferences between thts and the previous job are that 
thts ttme we must test for the form-overflow conditton, and that 
along wtth writting a record we must control form spactng and 
sktpptng. 


Testing for overflow ts done by an IF statement. To do thts, a 
name must have been gtven to the overflow condition; this name ts 
defined itn the I-0-Control paragraph of the Environment dtiviston. 
Let's study thts brtefly, to get an idea of what we must do to 
define such a name. (You will find this reading assignment back 
tn the reference handbook seectton titled ENVIRONMENT DIVISION 
ENTRY FORMATS.) 


Reading assignment: APPLY 


Controlling form spacing and sktpping ts the function of one of 
the formats of the WRITE verb. When you read about this format, 
you will also learn some facts about how data items must be set 
up when printtng ts done. 


Inetdentally, there ts a close resemblance between the format of 
WRITE for printing, and that for punching cards. You will 
probably find tt useful for your future work to read about the 
format for punehitng, even though there ts no problem in this 
course that involves a punched card output file. 


Reading assignment: WRITE (3) 
WRITE (2) 


We might use this statement in our program: 


If this statement is actually to cause a skip to channel 1, the 
value of the item named SKIP-TO-NEXT-FORM must be . 
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The item named SKIP-TO-NEXT-FORM might be defined like this: 


You would write this entry in the section of the 
division. 


Working-~-Storage; Data 


The WRITE statement that appeared a couple of frames back was 
taken from this IF sentence: 


This overflow test will work, provided that the name AT-BOTTOM- 
OF~FORM has been defined in an entry, in the section 
of the division. 


APPLY; I-O-Control; Environment 


Let's modify the IF statement above, so that it meets the entire 
writing and form-controlling needs of our problem: 


The value of the item named SINGLE-SPACE must be ‘ 


space (blank) 
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218 | This has been a fast look at the entry that we may use tn the 
Procedure divtston to print a line and to control paper forms. 
It shows us that we must antictpate the needs of thts procedural 
entry when we write the Environment and Data dtvtston of the 
program. 


Yaka This system flowchart gives most of the information you need to 
write the Identification and Environment divisions. 


JOB = ACCTSREC 

SYSTEM = IBM- 360, 
MODEL 30, 32K 

( USED BOTH TO 


INPUT FILE = ACCOUNTS - RECEIVABLE 
EXTERNAL NAME = RECVBLES 
DEVICE = 2400-SERIES 

MAGNETIC TAPE UNIT 


OUTPUT FILE = ACCOUNT-LIST 
EXTERNAL NAME = ACCTLIST 
DEVICE =1403 PRINTER 


COMPILE AND TO 
EXECUTE PROGRAM 


Take a new program sheet, and write these divisions. As before, 
write just a "bare-bones" Identification division. (There is 
simply no point in writing Author and Date-Written paragraphs, 
and so on, for this exercise. However, those will undoubtedly be 
required for the work you do on-the-job.) 


While it is not mentioned in the flowchart above, remember that 
we want to define an overflow name in the Environment division of 
this program. Let's make that name AT-BOTTOM-OF-FORM, since that 
was the name used in the procedural statements you looked at 
earlier. 


' ACCITSRE|C’ 


The Environment divtston te printed at the top of the next page. 
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PX fo prepare the Data division, you will need detailed information 
about the files and records. 


First, the tnput ftle, ACCOUNTS-RECEIVABLE: 


(1) reecorded in mode F 

(2) all data its BCD (external decimal code) 
(3) each record is 44 eharacters tong 

(4) 5&0 records per block 

(5) no tlabel records 


Next, the output ftle, ACCOUNT-LIST: 


(1) each record ts 132 characters tong (the capactty of 
the printer) 


(2) all data is BCD These characteristics apply 
(3) recording mode tis F to all files asstgned to 
| (4) one record per block unitt-record devices (card 
| (5) no label records files and printed files). 
eee 
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227 Each file contains just one type of record. The tnput record is 
named RECEIVABLE, and the output record its named ACCOUNT. These 
diagrams show the structures of the records: 


RECEIVABLE CUSTOMER-NUMBER ACCOUNT CUSTOMER-NUMBER 
(5 DIGITS) (5 DIGITS) 
CUSTOMER-NAME FILLER 
(20 LETTERS) (4 SPACES) 
INVOICE-NUMBER CUSTOMER-NAME 
(7 DIGITS) (20 LETTERS) 
AMOUNT FILLER 
(6 DIGITS) (4 SPACES) 


E INVOICE-NUMBER 


-DAT 
(6 DIGITS) (7 DIGITS) 


O 
Cc 
= 
mM 
olf all pill a 
= -l] si} £ 
at = 
= 


LER 

(9 SPACES) 
OUN 

(6 DIGITS) 


LER 

(9 SPACES) 
E-DA 

(6 DIGITS) 


FILLER 
(62 SPACES) 


Wwe From the information given in the last two frames, write the File 
section of the Data division. It is not necessary to use the 
same names for corresponding items in the two records; to do so 
would require that each name be qualified each time it is used. 
Try this method: write a "prefix" letter before each name, a 
different prefix for input than for output. You might write I- 
before input items, O- before output items -- for example, 
I-DUE-DATE and O-DUE-DATE. 


This ts very tmportant: You must add an addtttonal ttem as the 
first ttem of the ACCOUNT record -- for form-control purposes. 
This ttem, technically, ts not part of the 132-character output 
reeord, so tt ts not shown tin the reeord structure above; however, 
this extra posttton must be accounted for tn your record 
desertptiton. (Remember that the extra positton is added at the 
beginning of only those records that are tn ftles to be printed 
or punched.) 


The solutton for this frame tis printed at the top of the next page. 
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Finish the Data division by writing a short Working-Storage 
section. In it, describe two independent items: 
SKIP-TO-NEXT-FORM, with a value of 1, and SINGLE-SPACE, with a 
value of space. These are the items that contain form-control 
codes, and we will use their names in WRITE statements. 
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Write the Procedure division. Invent your own names for 
paragraphs (procedure names). You may turn back to take another 
look at the procedure flowchart, printed in an earlier frame. 
You may also re-read the frames in which we discussed the way to 
program the WRITE statement to handle form-overflow. 


Here's something to consider when you write the statements to 
move data to the output record: Do not assume that the FILLER 
ttems contain spaces. (We could not give these items an initial 
value of spaces, because the VALUE clause is forbidden in item 
description entries in the File secttion. And, as we potnted out 
once before, the word FILLER cannot be used in procedural state- 
ments -- so you must not write MOVE SPACES TO FILLER.) This 
problem can be solved simply by moving spaces into the entire 
record, as a whole, before moving any of the data tteme. 


60 Tl pPrRiocesis-palra.. 
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Just as with any problem you can name, this problem might have 
been solved tn vartous ways. The solutton printed in this book 
ts certainly not the only correct solutton. Let me point out a 
couple of thtngs that mtght have been done differently. 


(1) To control sktpping and spacing, we have used the "data-name" 
optton of the AFTER clause in the WRITE statement. We mtght have 
used the "integer" optton, and written thts entry: 


With thts entry, the ttems we defined in Working-Storage would 
have been omitted. And the entry could have been abbreviated even 
more by dropping the word ADVANCING, whteh ts optional. My 
optinton ts that the "data-name" optton ts more easily understood 
by someone reading your program -- provided that you create 
senstble data names. Only another COBOL programmer would know 

that the integer 0 tn the above entry destgnates a sktp to 

channel 1. (Then agatn, you could write a NOTE entry to explatn 
tt.) 


(2) Some people object to the practtce of blanking out the output 
record each time, before moving new data tnto tt. One way to 
avotd this ts to assemble the output tn a work area, and then move 
the complete record to the output area. What you could do ts 
define a record tn the Working-Storage section, and in tt descrtbe 
every ttem you want tn the output record; the advantage ts that 

in thts sectton, you can asstgn tnittal values of spaces to all 
filler ttems. However, tt would not be legal to WRITE a record 
that ts in working storage. Therefore, you would have to define 

a separate output record, such as: 


And you would have to transfer data from working storage to the 
output record, wtth an entry like MOVE WORK-RECORD TO ACCOUNT. 

So that, tn the end, you wind up moving 133 characters after all. 
Whteh ts not very dtfferent from filling the output area wtth 
spaces at the outset. 


The tdea, as I stated at the beginning, is that both ways are 
equally correct soluttons. Use whichever method seems best, or 
eastest, to you. Possibly when you become profictent at COBOL, 
you wtll begtn to constder which solutton requtres the least 
storage space when the object program is comptled, or whitch 
solutton gtves the shortest run time. For now, take the approach 
that any method ts good, as long as tt produces the desired 
results! 
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LESSON 8 


B2TA In this final lesson, you will not be given any reading assign- 
ments. If you wish, you may constder this leason to be a test 
of how well you can apply what you have learned in previous 
Lessons. However, don't think of itt as a "recall" teet -- you 
may refer to your reference handbook as often as you like; so 
this ts, tn part, a test of how well you can figure out what 
tnformatton you need and look up that information when you need 
tte | 


The lteeson covers just one problem. The problem puts greater 
emphasis on tnput and output operations than the other problems 
you have programmed. As a result, the Procedure division for 
thts problem wtll be somewhat longer. On the other hand, the 
entries requtred in the Data division are held to a minimum -- 
you have already had sufficient practice in making lengthy data 
description entries. 


Wim ‘The problem ts to update a file of master records by inserting 
the records for new accounts into thetr proper places in the file. 
Both the master ftle and the insertion file are on magnetic tape, 
and the updated file ts also to be written on magnetite tape. 


We have, then, two tnput files and one output file. The system 
flowchart for the job looks ltke this: 


INPUT FILE 1 = MASTERS 
EXTERNAL NAME =INMAST 
DEVICE = 2400-SERIES 

MAGNETIC TAPE UNIT 


JOB = UPDATE 
SYSTEM = IBM -360 
MODEL 40-64K 
MODEL 30-16K 
USED TO COMPILE 


OUTPUT FILE = UPDATED -MASTERS 
EXTERNAL NAME = OUTMAST 
DEVICE = 2400- SERIES 

MAGNETIC TAPE UNIT 


INPUT FILE 2 = INSERTIONS 
EXTERNAL NAME = INSERTS 
| DEVICE = 2400 - SERIES 

| MAGNETIC TAPE UNIT 
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Based on the information given in the system flowchart 
(preceding frame), write the Identification and Environment 
divisions for the UPDATE job. 


IDENITIFIICATIION DII VISION. 


: 
i 


j 
x 


ywyey All three files are recorded with record-length control fields 
(mode V); there are ten records per block, and standard labels. 
Each file contains one type of record, with characters represented 
by BCD (external decimal code) throughout. The records in the 
three files all have exactly the same format: the first 15 digits 
constitute an item called NUMBER, which is the identifying number 
of the record; the remaining 135 characters make up various data 
items, none of which are processed in this program. 


pana 


Using the above information, write the Data divison. Name the 
input master record MASTER; the insertion record INSERT; and the 
output master record OUT-RECORD. When you write record 
descriptions for MASTER and INSERT, follow the description given 
above; however,describe OUT-RECORD merely as a 150-character 
elementary alphanumeric item. 


The solutton for thts frame ts printed on the next page. 
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| 230) In the next few frames, we will discuss the processing logte of 
this job, and develop the procedure flowchart from which you wtll 
write the Procedure division. 


The logte of the job botls down to a pair of condittonal moves, 

as shown tn the dtagram below. We want to compare the identifying 
numbers of two records -- one from each of the input files. If 
the number of INSERT ts lower, the INSERT record ts to be moved 

to the output area; otherwise, the MASTER record ts to be moved 

to the output area. An output record can then be written. 
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INSERT 


IF INSERT NUMBER 
IS LESS THAN 
MASTER NUMBER 


{ 


Vee ee OUT-RECORD en 


MASTER 


IF INSERT NUMBER 
IS NOT LESS THAN 
MASTER NUMBER 


) 
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yea The selection of the proper output data ts the eructial dectston 
to be made, the "heart" of the proceesing to be done -- which tis 
always a good place to start developing a flowchart. We wrll 


work backward and forward from here. 
MASTER OUT - 
? RECORD 
NO . 


MOVE 
MASTER TO |. 
OUT - RECORD 


MOVE 
INSERT TO 
OUT -RECORD 


yev¥ym How can we get to the point where we can make this decision about 
the first record from each input file? Clearly, we must read a 
record from [the MASTERS file] [the INSERTIONS file]. 


BOTH the MASTERS and the INSERTIONS file 


BEE] But before we can read records from the files, we must _ the 
files. 


OPEN 
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BEY] In considering how to process the first record of each input 
file, we have worked our way back to the beginning of the job. 
This ts what our flowchart looks like at this point. (I have 
chosen the name BEGINNING-OF-JOB to be the name of the first 
COBOL procedure.) 


BEGINNING - OF - JOB 


READ 
MASTERS 
READ 
INSERTION 
| JANSERT < 
MASTER 
? 
| NO 
MOVE 
MASTER TO 
OUT -RECORD 


MOVE 
INSERT TO 
OUT - RECORD 


WRITE 
OUT - 
RECORD 


PEEY at the first step drawn on the flowchart above, we will open 


the input and output master files 


| the two input files ! 
both the two input files and the output file) 


both the two input files and the output file 
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236) Let's say that the first comparison showed that the number of the 
insertion record was lower, so the INSERT record was moved to 
OUT~RECORD, which was then written. In this event, the next 
logical step would be to 


move MASTER to OUT=-RECORD, since it must be the next 
output record. 

go back and read both files again, to prepare for the 
next comparison. 

read only the INSERTIONS file again, and make another 
comparison. 

Close the INSERTIONS file, and branch back to the 
beginning of the job. 


read only the INSERTIONS file again, and make another comparison 


This flowchart segment shows the branch to read the INSERTIONS 
ftle again. 


INSERTION - INPUT 


READ 
INSERTIONS 


MOV 
INSERT TO 
OUT- RECORD 


°o 
| m 


WRITE 
OUT - 
RECORD 


BEE} If the comparison of the first records had shown that the INSERT 
record was not less than the MASTER, the other leg would have 
been taken at the decision block -- that is, the MASTER record 
would have been written out. And we would now have to obtain 
another MASTER. 


In order to get the next MASTER, we can 


[write another READ MASTERS step] 
[branch back to the original READ MASTERS step]. 


ee0 
ONLY write another READ MASTERS STEP 
A stmple branch back to the ortginal READ MASTERS step would also 


cause control to flow through the READ INSERTIONS step, which 
would be an error. 
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yEkA We will insert a new READ MASTERS step into our flowchart. After 
another MASTER record is read, we must go to the step where 


the INSERT number and the MASTER number are compared 


We have now "closed the loope" of our process. The flowchart has 
developed to this point: 


BEGINNING- OF-JOB 


READ 
MASTERS 


INSERTION- INPUT 


READ 
INSERTIONS 
COMPARE- NUMBERS 
INSERT < MOVE WRITE 
MASTER INSERT TO QUT- 
? OUT- RECORD RECORD 
NO 
MOVE 
MASTER TO 
OUT- RECORD. 
WRITE 
OUT- 
RECORD 


READ 
MASTERS 


Nottee that I have been supplying procedure names as we have gone 
along. The names INSERTION-INPUT and COMPARE-NUMBERS will be 
needed tn GO TO statements. 
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yeu If the input files were infinitely long, and processing went on 
forever, our present flowchart would be adequate. The facts of 
life, though, are that data files -- like all good things -- must 
end. And we must test to find out when the end has come. 


Let's be more spectfic. Every READ statement ts requtred to 
contain an AT END elause; we wtll show the AT END tests as 
deetston blocks in our flowchart. Furthermore, we wtll have to 
constder that one file must necessarily run out before the other; 
thus, at the moment that we find that there are no more records 
tn the INSERTIONS file, there must be at least one more MASTER 
record that has not yet been written out, and vtce versa. 


Here the AT END test ts shown in the INSERTION-INPUT procedure: 


INSERTION -INPUT 


READ . 
INSERTIONS 


At the end of the INSERTIONS file, we will branch to a procedure 
named FINISH-MASTERS. When this branch occurs, 


[a previously-read MASTER is waiting to be processed] 
[the MASTERS file is ready to be closed] 
[there may be more MASTER records that have not yet been read]. 


a previously~read MASTER is waiting to be processed, AND there 
may be more MASTER records that have not yet been read 


ye¥Ya We will have to insert AT END decisions after both of the READ 
MASTERS steps. Examine the flowchart on the preceding page. 
Determine how often control will flow through the first READ 
MASTERS step, following OPEN FILES. 


Only once 
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243 


244 
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Although this sort of duplication of steps ts sometimes 

eliminated by writing "program switches", we find that it ts 

often easter tn COBOL to dupltcate a step instead of fussing with 
a switch. So tn thts program, we have two READ MASTERS steps 

(so far) -- the first of which ts executed only at the very outset 
of processing; an AT END branch cannot, under any circumstances, 
oceur after the first READ MASTERS step. 


Nevertheless, the format of the READ statement inststs that we 
provide the AT END test. We will satisfy this requirement by 
writting a branch to the next step, as dtagrammed below. 


BEGINNING -OF-vOB8 


READ 
MASTERS 


INSERTION - INPUT 


READ 
INSERTIONS 


The second READ MASTERS step presents an entirely different 
sttuatton. It ts part of a loop that reads and writes MASTER 
records, and it will be executed repeatedly during the running of 
the program. If the MASTERS file runs out first, the end of file 
condttton wtll be detected at this step; therefore, this AT END 
test ts a real one. 


At the end of the MASTERS file, we wtll branch to a procedure 
named FINISH-INSERTIONS. If thts branch ts taken, we know that 
a prevtously-read INSERT ts watting to be processed, and there 
may be more INSERT records that have not yet been read. 
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Here ts how we will finish up the remaining file after we have 
reached the end of the other file: we know that one prevtously- 
read record from the remaining file ts watttng in the input area, 
so we wtll move tt to OUT-RECORD, and write tt out. Then, 

because there may be more records in the rematning file, we will 
read the file and test for the AT END conditton. When we are at 
the end of the remaining file, both files are finished, so we 
branch to the end of job procedure -- close files and stop the 
run. 


It would be pointless to go back to the main routine and compare 
the numbers of records. In faet, tt would be an error, stnce 
there are no more records tn the other file. Bestdes, we know 
that all of the records in the rematning file must be written 
out, so all we have to do ts read-move-write, until we come to 
the end of the fttle. 


Two "finitshing-up" procedures have been dtagrammed below -- one 
for each input file. Two procedures are needed because we have 
no way of knowing which file wtll run out ftrst when they are 
processed by the main routine. If the INSERTIONS file runs out 
first, we wtll braneh to FPINISH-MASTERS; if the MASTERS file runs 
out first, we wtll branch to FINISH-INSERTIONS. 


FINISH -MASTERS FINISH -INSERTIONS END-OF-JOB 


MOVE MOVE 
MASTER TO INSERT TO 
OUT- RECORD OUT-RECORD 

WRITE WRITE 

OUT- OUT- 

RECORD RECORD 


STOP RUN 
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PZT This is the completed flowchart for the UPDATE job. Write the 
Procedure division that corresponds to this flowchart. All of 
the procedure names are shown, and many of the COBOL statements 
can literally be copied from the flowchart. Be careful, though! 
Some of the flowchart notes are like COBOL, but not exactly like 
it -- for instance, OPEN FILES, INSERT<MASTER, and CLOSE FILES. 
Use your reference handbook to find the actual formats. 

(The correct solution for this frame is printed on the next 


page.) 
BEGINNING - OF - JOB FINISH -MASTERS 
MOVE 
MASTER TO 
OUT - RECORD 
READ WRITE 
OuT- 
MASTERS RECORD 
Y READ 
<p £8 MASTERS 
NO 
INSERTION -INPUT 
READ END 
INSERTIONS JOB 
FINISH - 
MASTERS 
COMPARE - NUMBERS 
NSERT | MOVE WRITE 
MASTER’ INSERT TO ouT - 
? OUT - RECORD RECORD 
NO 
MOVE 
MASTER TO 
OUT - RECORD 
WRITE 
OUT - 
RECORD 
READ 
MASTERS 
END - OF- v0B 
FINISH 
YES INSER — 
TIONS 
NO 
STOP RUN 
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